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B0OTS8 
Tabl 


Parse fab ts 

SETUP_BOOT5S = Set up boot environment 

B00 = Process bootstrap commands 
GET_A_RECORD = Extracts an RT-11 format record 
Output message routines 


if Declarations 


Co: 
Eo 


SET_EX ets the EXAMINE command flag. 
SET-DEPOS FLAG = Sets the DEPOSIT command flag. 
SET_HELP_FLAG = Sets the HELP command flag. 
SET BOOT FLAG = Sets the BOOT fiag- 

SET-CMDFIL_FLAG = Sets the COMMAND FILE flag. 
MOV-FILESPEC = Pick up file specification 
SAV_DEVSPEC = Pick up device specification 

LOAD_FILE = Load file into memory 

SET_STARTADDR = Sets a START address 

START PROGRAM = Start at start address 

SET_BYTE = Set byte display mode 

SET_WORD = Set word display mode 

SET_LONG = Set longword display mode 

SET_PHYSICAL = Set physica! address mode 

SET_GENERAL = Set general register mode 

SET_INTERNAL = Set internal processor register mode 
EXABEP_ADDR = Pick up address argument 

USE_LAST_ADDR = Repeat same address argument 
USE_NEXT_ADDR = Increment address argument 
USE“PREVIOUS = decrement address arguement 
USE_LAST_VALUE = Process ‘‘@ 

EXAMINE _COC = Display a location 

DEPOSIT_VALUE = Pick up data value 

DEPOSIT_DATA = Store a value in memory 

EXECUTE FILE = Process command file 

PRINT_HELP = Print an RT-11 HELP file at the console. 
BOOT_OP = Boot the system 

OPEN_FILE = Locate and open an Rt-11 file. 

Stand alone 1/0 support 

XDELTA Definitions and a fault handler 

Declarations that must appear at the end 
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TITLE 158 = Bootstrap command processor 
“IOENT *y042600" : ’ 


SRE KAAAEAA REA AAAA AAA AAAAAAAAAAAAAAAAAAAAAAAAAAEAAARAAAAAAAAEAREARAEETEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ‘ 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. * 
® 

® 

® 

® 

® 

* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Oooo 
SOoOOoOoOoCoooooooCoooooooooo 


SSSSSSSSSSSSSSSSsSsssssssss 
COOCOCOCSOOCOSOSCOCOOOOOOOOOOOooO 
Sete Se Se Ge Ge Se Ge Ge Se Ge Se Ge Gee Ge Ge Ge Ge Ge Ge 
eae eneneaeneneneneneeeeeeaeenennen 


PARRARAARAAALALASALARALARASAE ALAR ELAR SEERA ARERR REE AREA RRR RA AR RRR ARR RRA ASS SS 


+ 
+ 


FACILITY: 
Bootstrap command processing module 
ENVIRONMENT : 


Runs at IPL 31, kernel mode, memory management is OFF, IS=1 
(running on interrupt stack), and code must be PIC. 


ABSTRACT: 
This module gains control from the boot block 0 code. The module 
processes commands entered interactively from the console 
terminal, or commands contained in command procedure files on 
the boot device. 

AUTHOR: 
Carol Peters 22 March 1979 

MODIFIED BY: 


v03-003 ACG0392 Andrew C. Goldstein, 19-Jan-1984 22:39 
Tie off SYSSFILESCAN for TPARSE use 


v03-002 KTA3085 Kerbey T. Altmann 03-0ct-1985 
Add some more dummy symbols for XDELTA. Add ability 
to boot unattended. 
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0 3 
0 3 ; v03-001 ACG0345 Andrew C. Goldstein 11-Aug-1983 16:45 
0 6 : Add dummy SYSSASCTOID routine for TPARSE 
6¢ ; Steve Jeffreys 04-DEC-1979 
65 ; - Added documentation for indirect command file processing. 
64 ; - Echo command Line for indirect command files. 
09 65; = Added HELP command. 
00 96 3 - Added BOOT command. 
464 67 ; - Fixed D/I gennen ‘ 
00 o8 3 - Added /B size qualifier. 
4444 § 3 - Make START command invalidate the Translation Buffer 
4464 oy ; before JMPing to the new image. 
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Laren Declarations : 27-SEP-1382 33:09:30 [Boots sRe BOOTSS.MAR; 1 . 3) 
0000 73 -SBTTL Declarations 
0000 74 
0000 fat 
0000 76 ; Macros 
0000 73: 
$009 8 SDSCDEF Stri d i defini 
; String descriptor definitions 
0000 80 SPRDEF F Processor registers 
0000 81 SRPBDEF ; RPB definitions | 
0000 Hf F ; Status code definitions 
0000 8 STPADEF ; TPARSE field definitions 
0000 84 
0000 85 ; : 
0000 86 ; Macro to print messages to terminal. 
0000 87 ; 
0000 88 
0000 89 «MACRO MSG,STR 
0000 90 BSBW  BOOSFACMSG 
0000 91 eASCIZ \'STR'\ 
0000 92 -ENDM MSG 
0000 93 
0000 94 ; 
0000 95 ; Equated symbols: 
0000 38 ; 
0000 9 
0000000D 0000 98 CAR_RETURN = 13 : ASCII carriage return code. 
0000000C 0000 99 FORA_FEED z 12 3; ASCII form feed code. 
ae tea a 0000 100 VERTICAL TAB == ‘11 ; ASCII vertical tab. 
Q000000A 0000 101 LINE_FEEB = 10 : ASCII Linefeed code. 
00000000 sia 1¢ = 0 ; ASCII null character code. 
00000001 0000 104 SADEBUG = 1 : Include XDELTA in image. 
00000001 0000 105 SAENVIRON = 1 3 yeeret see standalone. 
00000000 9464 196 TSDEBUG = 0 : Include DEBUG in image. 
0000 108 -VIELD (CMD,0,<- ; Command details bit defs. 
0000 109 <LOADCMD, ,M>,- 3; Load command. 
0000 110 <STARTCMD, ,M>,= ; Start command. 
0000 = 111 <EXAMCMD, ,M>, 3; Examine command. 
0000 112 <DEPOSCMD, ,M>,- ; Deposit command. 
0000 113 <HELPCMD, ,M>,= 3; Help command. 
0000 114 <BOOTCMD, ,M>,- : Boot command. 
0000 115 <CMDFILCMD, ,M>,- : Indirect command file, 
0000 11§ <INDIRECT, ,M>,= ; Processing indirect file. 
0000 «11 <PHYSICAL, ,M>,- ; Physical address. 
0000 118 <GENERAL, ,M>,= ; General register. > 
0000 119 <INTERNAL, ,.M>,- ; Internal precessee register. 
0000 120 <LONG, ,M>,= ; Longword length field. 
0000 121 <WORD, ,M>,- ; Word length field. 
0000 \$¢ <BYTE,,M>,- ; Byte Length field. 
0000 12 <NULLDEV, .M>,- :; Null boot device 
0000 124 <UNATTEND, ,M>,= 3 Unattended DEFBOO 
$33 ss : 
00000008 0000 127 RPB$V_NODEFBOO = RPBSV_MPM ; Reuse this bit as no MA750 exists. 
00000800 44 : 3 RPBSM_NODEFBOO = RPBSM_MPM 
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Bec larat ions : 2=SEF = 13be 33:09:30 feoors sre BOOTS8.MAR;1 
00000007 00 130 NUM_OF_CMDS = 7 3; # of commands 
So000eSF 009 ! MAX_PROC_REG = *X3F ; Highest processor register. 
00000000 0000 1 SAVED_RO = 0 3; Offset to registers saved on 
00000001 0000 134 SAVED-R1 = 4 t stack. z 
BR OOO NS 000 135 gAved NG z § 
00000003 0000 1 § SAVED_R = 
00000004 0000 1 SAVED_R4 24 
00000005 0000 138 SAVED_R5S sh 
00000006 0000 139 SAVED_R6 = 6 
00000007 9000 140 SAVED_R? = 7 
00000008 0000 141 SAVED_R8 = 8 
00000009 0000 17 SAVED_RI = 9 
QOO0000A 0000 14 SAVED_R10 = 10 
0000000B 0000 144 SAVED_R11 = 11 
0000000C 0000 145 SAVED _AP = 12 
0000000D 0000 146 SAVED_FP = 13 
OOOO000E 0000 147 SAVED_SP = 14 
OOOOO0OF 0000 148 SAVED_PC = 15 
0000 149 
0000 150; 
0000 151 ; BOOTSS resides in the upper quarter of the 64k axes of good memory 
0000 152 ; available during bootstrap operations. The BOOTSS Location allows 
0000 153 ; VMB to be loaded at <base of memory + “X200> as usual, and also 
0060 154 ; permits the diagnostic supervisor to be loaded at 
0000 155 ; <base of memory + *XE000>. If BOOT58 grows in size, it may be 
0000 156 ; necessary to lower its address. 
0000 157 ; 
0000 158 
0000C000 0000 159 BOOTS8_OFFSET = *xC000 ; Offset to BOOTSS from start 
0000 160 ; 9f good memory. 
0000 161 
0000 162 ; 
0000 163 ; Own storage. 
0000 164 ; 
0000 165 
a 196 -PSECT BOOTS8_DATA,LONG :; Data PSECT. 
0000 168 PARAM_BLOCK: ; Parser parameter block. 
00000024 94 192 -BLKB TPASK_LENGTHO 
0024 171 GOODMEM_BASE: ; Base address of good memory. 
00000000 OoSe \"¢ -LONG 0 
$058 174 FIRST_FREE_BYTE: ; Address of first free byte 
00000000 Onse \?? -LONG 0 ; past BOOTSS. 
b05¢ 177 COMMAND_FLAGS: 3; Mask describing details of 
00000000 BOs 178 - LONG 3 current and previous commands. 
0030 180 CURRENT_ADDRESS: ; Address field of this EXAMINE 
00000000 Ooee 13) -LONG 0 : or DEPOSIT command. 
9034 +1 ; LAST_ADDRESS: ; Address field of Last EXAMINE 
00000000 ite ; : - LONG ; or DEPOSIT command. 
0038 #186 LAST_VALUE: ; Last value displayed. 
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V04=000 Declarations . 2-8Ep-1984 93:08:30 Faoove smeipoovse.mar:1 P29 (3, | 
J0000000 8 188 «LONG 0 
O3C 189 SAVED_VALUE: ; Hold lue. 
00000000 908¢ 190° = LONG 0 eee ep 
4 192 REGISTER_TABLE: ; Address of ist lues. 
00000000 i 138 TLONG 0 tite? ina eeapent soe | 
044 195 HOLD_DEPOSIT: ; Value to be deposited in 
00000000 9044 196 «LONG 0 ; DEPOSIT command. eg 
4 198 START_ADDRESS: ; Address gi in START 
00000000 34 199 LONG. 0 : LOAD command. ye 
004C 01 FILE_DESCRIP: : ; Descriptor of file spec. 
00000000 00000000 Opes §¢ -LONG 0,0 
0054 04 HELP_FILE_SPEC: ; Help file name string. 
50 4C 48 2€ 4C 4F 53 4E 4F 43 ooee $02 eASCII = /CONSOL.HLP/ 
OOSE 207 HELP_FILE_DESCRIP: ; File descripter for HELP file. 
0000000A R025 208 -CONG 10 3 File spec length 
00000000 494 3 -LONG 0 : File spec address 
0066 11 DEFBOO_SPEC: ; Default boot command file spec 
44 4D 43 2E GF 4F 42 46 45 44 494 518 ASCII /DEFBOO.CMD/ 5 
0070 214 DEFBOO_DESCRIP: ; Default boot command file descripter 
O000000A 0070 215 «LONG 10 3 File spec length 
00000000 O08 s1$ -LONG 0 3 File spec address 
0078 218 BOOTFILE_SPEC: ; Boot command file spec 
44 4D 43 2E 4F 4F 42 58 58 58 th $35 ASCII /XXXBOO.CMD/ 3 
doe 221 BOOTFILE_DESCRIP: ; Boot command file descripter 
0000000A 008 $56 -LONG 10 : File spec length 
00000000 0086 $§ «LONG 0 3 File spec address 
008A 4 
008A $$2 DEV_SPEC: ; Device spec 
0000008F Boer $$ -BLKB 5 3 Allow only 5 characters 
O08F 28 DEV_DESCRIP: ; Device descripter 
00000000 008F 9 -LONG 0 : Device spec length 
00000000 bas ? «LONG 0 3 Device spec address 
97 g UNIT_NUMBER : ; Boot device unit number 
00000000 BRee ? -LONG 0 ; Values 0..9 
098 32 FILE_SPEC: ; Address of file specification. 
00000008 be ? -BLKB 64 
008 8 COMMAND_BUFFER: ; Command buffer. 
54 GF 4F 42 ?” 69 39 eASCIC /BOOT/ ; Unattended DEFBOO 
000001A3 hit get -BLKB 200-5 
000000C4 OIA 42 CMD_BUFFER_SIZE = .-COMMAND_BUFFER-4 ; Length of command buffer. | 
| 


A - - — = - - 4 


-——-——_—- --—- -- + 


| 13 
| BOOTS8 = Bootstrap command process 15-SEP- 
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| i 
| 1A 45 COMMAND STRING 
1A 6 DIREC_BOFFER: 
000005A3 BiA tf -BLKB 1024 
00000400 03k $3 CMD_STRING_SIZE = .-COMMAND_STRING 
baa 51 IND_CMDBUFFER: 
000007A3 BoA 26 -BLKB 512 
O7A 54 IND_CMDBUF_PTR: 
00000000 Bras 2? -LONG 0 
O7A7 57 IND_W_BLKS_LEFT: 
0000 Brae $26 «WORD 0 
O7A9 $60 IND_W_NEXT_LBN: 
0000 Brae o] -WORD 0 
07AB 86 SAVED_STATUS: 
000007AD ace rf: -BLKW 
07AD 266 IN_COMMAND_FILE: 
000007AE Brae of -BCkB 1 
O7AE 269 PROMPT_STRING: 
00 3E 38 35 54 GF 4F 42 OA OD Brae 2r1 eASCIZ 
0788 Le; LINE_TERM: : 
00 00 OA OD the $7 eASCIZ <CAR_RETURN><LINE_FEED><NU 
078C she OUTPUT_BUFFER: 
000007E4 geet $76 -BLKB 40 
00000028 Bree 14 OUTBUF_LENGTH = .-OUTPUT_BUFFER 
O7E4 $50 W_FAO_OUT_LEN: 
0000 Bree 34 -WORD 0 
07E6 288 LONG_PHY_FORMAT: 
20 4C 58 38 21 20 20 50 SF 21 2F 21 O7E6 84 wASCII &%!/'!_P '8xXL '8XL2 
4C 58 38 21 20 14a 3 as 
00000011 Ore? 36 FORMAT_LENGTH = .=LONG_PHY_FORMAT 
Orr 88 GUTPUT_FORMAT: 
00000808 tas +4 ~-BLKB FORMAT_LENGTH 
0808 91 B_ERROR_OUT: 
00 tts 38 -BYTE 0O 
0809 94 B_ENVIRON_SAFE: 
00 tH 3 -BYTE 0 
OB0A 39 L_OLD_STACKP: 
00000000 080A 98 -LONG 0 


pa19ee 93; 


3 
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BOOTS.SRCJBOOTSS.MAR; 1 
(Allow 4 bytes for LINE_TERM) 
Command string buffer. 

RT-11 directory buffer. 
Length of command string. 
Indirect command file buffer. 
Pointer to next byte to read 
in indirect command buffer. 


number of blocks left to read 
in command file 


Next LBN to read from indirect 
command file. 


Temp storage of exit status 


; Used as boolean 


BOOT5S8's prompt string. 


<CAR_RETURN><LINE_FEED>/B00T58>/ 
Line terminator for lines to be echoed. 


LL> 
FAO output buffer. 


Length of FAO output buffer. 


Location to hold length of 
FAO output string. 


; FAO control string. 
; Display a hex longword. 


Length of FAO format string. 


ll in which to store a 
dynamic output format. 


Error message already output 
for this command. 


Flag saying that an exception 
occurred during parse. 


Location to save stack | 
pointer in case of exceptions. 


Page (8) 
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Holds address of device ROM 
; driver subroutine. 


99 
0 DRIVER_SUBROUT:: 
00000000 6 “LONG 0 


; Declarations for the aid of XDELTA. 


0000 -PSECT __299B00T ,Page ; PSECT that always Links at end 


; of this program. 
BOOTHIGH: 


Syabel to mark the start of 
the first page after the code 
: in this module. 


CoooCcooooco°o°o-;-- 
mr 
tt I I MOOOOOOO 
QUE WW CO OONOUE wih 
— 


CoOoQCooooo 
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00000001 0 IF NE , SADEBUG : If XDELTA is included 
00000004 EXESMCHKVEC == BOOTHIGH+4 : define a symbol used by XDELTA 
0 ~ENDC 3; to locate the SCB. 


" 
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§ .$ .SBTTL Parse tables 
0 The following documenation is taken from the help file that i inted 
| $ 1 : by Boots wit the HELP command. pi nh tem 
$0 gi 
| 00 4 34+ 
4 5 ; GENERAL: 
4 ; 3 <location> ::= <value> ! <register> 
2093 ; 3 <value> ::= <number> ! <shorthand> 
9000 1 3 <number> ::= Any nonnegative HEXADECIMAL number. 
0000 5 : <register> ::= 0..F 
0000 34; 
0000 35 ; <shorthand> ::= Any one of the following: 
0000 36 ; ""e"' = use LAST <location> specified 
0000 $35 3 *"e"' = use (LAST <location>) + 1 
0000 38 ; "a"! = use (LAST <location>) = 1 
44 a4 : “a'' = use contents of (LAST <location>) 
0000 341: <loc_qual> ::= Any one of the following: 
0000 4g : **/P"' = physical memory address 
0000 43; "1G" = generat register 
0000 44; “/I'' = internal processor register 
itd 30 : <si l> A f the followi 
3; <size_qua ::= Any one o e followin 
0000 347; . ype size = ton « 
0000 348; "/W'' = size = wor 
0000 349; *"/B'' = size = byte 
0000 350; 
0000 351 ; <devspec> = A device spec of the form: DDCU, where 
0000 $26 ; DD = Generic device type na wt 
0000 353; C = controller designator A! 
4 $2¢ 3 U = unit number (0..9 
0000 356: <filespec> 2:2 A Logal RT-11 filename of the form: NAME.TYP, where 
0000 357; AME = any alphanumeric string of not more than 6 chars. 
0000 358 ; TYP = any alphanumeric string of not more than 35 chars. 
0000 359; a null TYP is acceptable. 
0000 360; 
4 61 ; BOOTSS COMMANDS: 
000 6¢ ; 
44 97 : BOOT [<devspec>] 
0000 eg : Boot from the device specified. If no device is specified, boot from 
444 66 : the default boot device. This command cannot be used within an indirect 
000 67 ; command file. 
44 68 ; 
000 +4 : = “ 
000 A 3 DEPOSIT C<loc_qual><size_qual>] <location> <value> 
00 7 : Deposit <value> at the location specifed by <location>. 
4 iS : The <location> is interpreted a:cording to the qualifiers. 
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; EXAMINE [<loc_qual><size_qual>] <location> 
weep lay the contents of <location>, where <location> is interpreted 
according to the qualifiers. 

HELP 


Print this text at the console. This command cannot be used within 
an indirect command file. 


LOAD <filespec>C/START:<value>] 
Load a file from the boot device into memory qterting at the address 
specified <number>. If no starting location is specified, load the 
ile beginning at the first free Location in memory. 
START <value> 


JMP to <yalue>. 


NOTE: 


SOOoOQoooooooooooooooooooooooeo 


SSSssssssssesoooeeeeeeeeeoeSSeSSSSeSSeSSeSeSSS 
SOOONAMNE WN 9 OONOU EWN" OUOONOu 


= 
OOOO 000 00000000 COCO CD COO INI NINN 


COOOCOCOCOCOOOoOOOOSSOSOSOSSSOSOSOSOSSOSOSOSOSSOSOSOSOSOOOOOSOOSOOSOOOOSoOO: 


Parse a valid command, which is a syntactically-correct command 
followed immediately by end of line. 


SOoOSOCOOOOOSOSSOSOSOSOSOSOSOOSOOOSOSOSOSOOOSOSOSOOSOSOSOSOSOSOOSOSOOOOOOOOOOOOOOOO 


401 ALL BOOTSS commands may be abbreviated to the least amount of 
0 40 significant characters. Since the first character of each command 
0 40 is unique, this means all commands may be abbreviated to the one 
3 $88 character. For example, the BOOT command may be entered as ‘B’’. 
0 406 Some processor registers are either read or write only. Attempting 
0 407 the wore operation (ie. E/I <write_only_reg>) on such a register 
0 408 will yield unpredictable results. 
0 409 ;-- 
0 410 
0 411 
0 tig SINIT_STATE - ; Start of TPARSE state table. 
00 41 BOOTS8_TABLE,KEY_TABLE ; Name of state and keyword 
00 414 ; table. 
00 415 
00 $16 H 
00 417 ; Define a command ‘ine. 
§ $13 3 
0 41 
0 420 SSTATE é 
0 421 STRAN !VALID_COMMAND,- : Accept valid command. 
0 4 § TPAS EXIT,- 
00 4 EXECOTE COMMAND 
5 ‘ : STRAN TPA$_EOS,TPAS_EXIT : Accept null command. 
09 $96 
00 4 
00 428 
00 429 
00 450 
00 431 


Sooooooo 


SSTATE VALID_COMMAND ; Accept valid command. 
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code at a given address. 
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Vv -000 Parse tables 4-SEP-19 BOOTS. SRC JBOOT5S.MAR; 1 ( 
4 ¢ STRAN !LOADCMD,,SET_LOAD_FLAG ; Set flag for load command. 
433 STRAN {START CHO * : Set flag for start command. 
435 STRAN ‘EXAMINECAD,,- : Set flag for examine command. 
09 436 SET_EXAM_FLAG 
0 4 STRAN '!DEPOSITCMD,,- ; Set flag for deposit command. 
00 438 SET _DEPOS_FLAG 
0 439 STRAN '!HECPCMD,>SET_HELP_FLAG ; Set flag for help command. 
0 440 STRAN '!BOOTCMD,,SET_BOOT_FLAG ; Set flag for boot command. 
0 44) STRAN '!CMOFILE,,- : Set flag for indirect command 
| 00 44g SET_CMDFIL_FLAG : file. 
0 44 SSTATE 
tte STRAN TPAS_EOS,TPAS_EXIT : End command with end of Line. 
0 446 ; 
0 447 ; Load command. 
0 448 ; 
0 449 : 
0 450 SSTATE LOADCMD : Command that loads a file 
0 451 3; into memory. 
0 136 STRAN ‘LOAD’ 3; Command verb. 
0 45 S$STATE 
0 454 STRAN !FILESPEC,,MOV_FILESPEC ; Parse file specification. 
0 455 SSTATE 
0 456 STRAN !LOAD_QUAL,TPAS_EXIT :; Optional start address. 
0 oe STRAN TPAS_CAMBDA,TPAS_EXIT ; Null start address. 
459 ; 
460 ; Start command. 
162 
46 SSTATE STARTCMD ; Command that starts executing 


SOOSCSCSCSCOSOSOSOSOSOSSOSOOSOSOSOSOSSOSOSOOSOSSOOSOSOSOSOSOSOSOSOSOOSOOOOOOSOSOOOOOOOOOSoSOo 
SOOSCOCSCOSSCSCSOSSSOOCOSSOSOSSSOSCOSOSSSOSOSOSSOSSOOSOSOSOOSOSOSOOOOOSOOOOSOOOOOSoO 


465 STRAN ‘START' 3; Command verb. 

466 $STATE v 

467 STRAN ‘EXPLICIT_VALUE,- 3; Starting address. 

468 TPAS_EXIT7SET_STARTADDR 

469 

470 ; : 

471 ; Examine command. 

253 | 

474 SSTATE EXAMINECMD ; Command that displays the 
0 475 3 contents of some location. 
0 476 STRAN ‘EXAMINE’ 3; Command verb. 
0 477 SSTATE 
0 478 STRAN ‘!EXADEP_QUAL ; Parse qualifiers 
0 479 SSTATE : n 
0 480 STRAN !ANY VALUE, TPAS_EXIT,- ; Examine special location. 
00 481 EXADEP_ADDR 
0 ret 
0 485 ; . 
0 484 ; Deposit command. 
it 
00 rt SSTATE DEPOSITCMD : Command to deposit data in 
000 488 ; a word or longword location. 
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2 8 ih *DEPOSIT’ ; Command verb. 
$3) th 'EXADEP_QUAL 3; Parse qualifiers 
49 STRAN beapee’ he VALUE,.> ; Specify special location 
298 wwe 
£38 STRAN !EXPLICIT_VALUE 3; Specify data to be deposited. 
9 TPAS_EXIT TTDEPOSIT _VALUE 
£28 


: Examine and deposit qualifiers. 


SSTATE EXADEP QUAL 
STRAN !LOC_Q Location qualifier 
the TPAS-LAMBDA Allow null lecetten qualifier 


TATE 
STRAN !SIZE_QUAL,TPAS_EXIT ; Size qualifiers 


Qualifiers. 


: Location qualifers. 

SSTATE £O¢ QUAL 

STRAN TPAS_LAMBDA,TPAS$_EXIT 
STRAN a Lae -EXIT,SET eee 
STRAN ‘I',TPAS_EX IT. SET~ INTERNAL 
STRAN '‘P', *TPAS~ “EXIT, SET_PHYSICAL 
: Size qualifiers 

SSTATE F}Fe.cum 


STRAN 
STRAN TPAS_LAMBDA,TPAS_EXIT 
SSTATE 

TRAN 'L*, TPAS_EXIT,SET_LONG 


$ 
STRAN ‘W', TPAS_ “EXIT, SET— “WORD 
$TRAN 'B', TPAS- TEXIT,SET_BYTE 


: Numeric value. 


SSTATE NUMBER ; Accept a hexadecimal value. 

STRAN IPAS HEX, yeas EXIT 

STRAN ‘a’, TPA 3 Accept an at sign meaning 
USE “LAST “fatue ; last value displayed. 


SOOGOSCOOSOSOSOSOSOSOSSSSOS SS SSESooooooosoooooooooooooooooooooo 


: Special location for an examine command. 


$STATE ANY_VALUE Accept a special character 
indicatin a location. 


STRAN ‘EXPLICIT_VALUE,- 3; Accept a a deposit location. 


SOOOOCOCOSOSSOOSOSOSSOSOOSOSOOSOSOOSOSOOSSSSOSSSOSOSOSOSOSOSSOSOSOSOOOSOOOOOOOOOOOOoOO 
OOSCOCSCSOSSOSCSOCOSOSOSSOOSSOSCSOSOOSSOSCSOSOSSSOOSOSOSOSOSOOOSOOOSOOOCOOSOOOOoOSSo 
SOOOCCCSCSSSOSOSOSOSOSOSOSOOOSSOSSSSSSOSSSSooooooooooooooooooooooooo 
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TPAS_EXIT 
STRAN TPAS"LAMBDA,TPAS_EXIT,=- ; Or accept a null examine 
USE_NEXT_ADOR 3; location, meaning ‘'next”’. 


; Special location for an examine or deposit command. 


SSTATE EXPLICIT VALUE ; Accept ‘'#"’, *'*"*, or ‘P’, 


; Accept any number. 


STRAN '!NUMBER,TPAS_EXIT 3 H 
STRAN te" TPAS_ Po ; Use location used in Last 
SE_LAST_ADDR 3 examine or deposit command. 
STRAN ‘'+*, TPAS_EXIT,= 3; Use next sequential location 
USE _NEXT_ADDR ; a word or longword from last 
3; location. 
STRAN ‘=',TPAS_EXIT,=- 3; Use previous address 
USE_PREVIOUS 
3 eorse a file specification for the LOAD command and for indirect 
3 es. 
SSTATE FILESPEC 3; Untangle a file specification. 
TRAN TPA$_STRING ; Parse a file name. 
SSTATE 
TRAN ‘.° ; Starts with a dot. 
th TPAS_LAMBDA,TPAS_EXIT ; Accept null file type. 


STRAN TPAS_STRING,TPAS_EXIT ; Ends in a normal eteing. 
STRAN TPAS_LAMBDA,TPAS_EXIT ; Can be null file type too. 


3; Load qualifier. 


OOo NAW EWN OS OO NAMES WW OS ODONAU EWN $0 OONAUES WN OOONO 


DDD. PUPP VPP PVP DULPUPUDUPUDVIUSIUDUSUSIUSUSUIVSUSUSUSUSUSUS USUAL USUI USUSTUS USUI IAS IASIOSTOSUS IAS VOSISIOS USS 
DMOOO OOOO O OW 000 09 09 09 09 09 09 09 SINISE IAAA A AAA AAA MMIII £ 


SSTATE LOAD_QUAL : Process /START qualifier. 
STRAN ‘/'° 3; Starts with a slash. 
SSTATE 
STRAN ‘START 3; Then the word ‘START’. 
SSTATE 
STRAN '‘:'° ; Then a colon. 
SSTATE 
STRAN ‘EXPLICIT_VALUE,- ; Then a start address. 
09 6 TPAS_EXITTSET_STARTADOR 
09 ‘ + Help command. 
90 .c SSTATE HELPCMD : Print help text at console 
0 5 STRAN ‘HELP* 3 Command verb 
00 6 SSTATE 
rs , STRAN TPAS_LAMBDA,TPAS_EXIT ; No text expected after ‘HELP’ 
00 9; 
3 ? 3; Boot command. 
000 602° SSTATE BOOTCMD : Boot from default boot file 
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bivettin Parse tables -SEP-1 1984 $3; 38; 3) BOOTS.SRC 50¥S8 mar: 1 ” 13) 
000 603 STRAN ‘BOOT’ 3; Command verb 
09 604 SSTATE 
; 605 STRAN '!DEVSPEC,TPAS -EXIT. SAV -DEVSPEC 3; Parse device spec 
0 6 $ STRAN TPAS_EOS,TPAS EXIT Accept nuil device spec 
8p $° /CMD_ “" _NULLDED, COMMAND. FLAGS 
B58 ey 
3; Device spec. 
$09 611; ' 
000 O16 SSTATE DEVSPEC : 3 character device spec 
444 ei? ih Ss !DEVICE_TYPE i Get the generic Eeviee type 
$000 615 STRAN '!CONTROLLER 3; Get the controller designater 
0000 616 SSTATE 
0000 617 TRAN TPAS_DECIMAL,,,,UNIT_NUMBER ; Get unit number 
$000 S19 STRANG *:* TPA p dena nt 
ot ; Parse optional colon 
0000 620 STRAN TPAS TTAREDAL TPAS. EXIT ° 
0000 621 
0000 6 ¢ 
0000 623; 
0000 624 ; Device types. 
itd $2 , SSTATE peace TYPE P he 2 ch ic d 
; Parse the char generic device type 
0000 697 STRAN TPA$_ACPHA S Got test cher” 
0000 628 SSTATE 
0000 $¢? STRAN TPAS_ALPHA,TPAS$_EXIT 3; Get second char 
0000 630 
0000 631 
0000 $36 : 
+464 oe7 3; Parse the 1 char contoller designator. 
0000 635 SSTATE CONTROLLER ; Parse a controller spec 
0000 636 $TR *A', TPAS_EXIT 
0000 637 STRAN ‘B', TPAST ~EXIT 
0000 638 
0000 639 
0000 640 
0000 641 
0000 o66 3 7 . 
0000 643 ; Indirect command files. 
0000 644; 
0000 645 
44 646 SSTATE CMDFILE 3 Locate and execute a command 
000 647 , ye, . ? 
0000 648 TRA ‘a’ ; Starts with at sign. 
0000 649 SSTATE on ; 
0000 650 STRAN '!FILESPEC,TPAS_EXIT,- ; A file specification must 
9000 631 MOV_FILESPEC > follow. 
0000 $3 SEND_STATE 3; End of syntax tables. 
33 Oe 
44H 028 : Declare a code PSECT that will always Link at the start of the image. 
44 658 
0000000 659 -PSECT $$$$00B00T,LONG 
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0000 665 -SBTTL SETUP_BOOTSS = Set up boot environment 
0000 66 
000 667 ;++ 
4 O08 ; Functional description: 
0000 670 ; When this program gains control, no SCB or RPB exists. This 
000 671; routine identifies space for an SCB in the first free page 
0000 ors 3 of memory following this program. The routine fills each 
0000 673; Longword in the SCB with the address of a fault handler. 
0000 674 ; Then the routine loads the SCB address into the SCBB processor 
464 of? 3 register. 
$009 g5 3 If the user requested XDELTA via a software boot control flag, 
0000 678 ; the routine then loads 2 SCB longwords with XDELTA handlers, 
4464 4s ; and creates the first entry in the XDELTA breakpoint table. 
0000 681; If the boot flag requested an initial breakpoint, the routine 
0000 one 3 then executes a BPT instruction, which passes control to 
44364 o87 3 XDELTA. 
0000 685 ; This routine then calls BOOTS8 -- the command processor -=- to 
0000 686 ; accept and process commands from the console terminal. 
0000 687 ; 
0000 688 ; Inputs: 
0000 689 ; 
0000 690 ; R5 - software boot control flags 
0000 691 ; : 
0000 692 ; Bit Meaning 
0000 69 FY ool C OO OO OOS 
0000 694 ; 
0000 695; 5 RPB$V_BOOBPT. 
0000 696; Bootstrap breakpoint. Stops BOOTSS in XDELTA 
0000 697 ; before accepting commands. 
0000 698 ; 
0000 699; 11 RPBS$V_NODEFBOO. 
0000 700 ; Do not automatically execute a BOOT command 
sit 43 3 on activation. (Default behavior is to a BOOT.) 
464 2 : R6 - address of device ROM driver subroutine 
0000 705 ; SP - <base_address + “X200> of 64kb of good memory 
0000 706; Rte 
0000 707 ; Implicit inputs: 
0000 708 ; 
0000 709; BOOT FAULT - address of a fault handler 
0000 710; BOOTRIGH - address of the first free byte beyond B00T58 
4 ay 3 code and data 
0000 8 : When SETUP_BOOTS8 gains control, physical memory looks Like 
0000 714; the diagram below: 
0000 715; 
0000 716 Bs SP=*x200: pow e wes See mene ne Bem eB e De E  E Ee m te 
0000 717; H boot block 0 : 
44 8 Py SP: Powerman ono enor ee EES EOS eH ESE HS . 
000 719 ; : 
0000 130 : : unused 
0000 721; : : 


] 
| 
| 
| 
| 
| 
| 
} 
| 
| 
} 
| 
| 

4 


| BOOTS8 


761 


53; Save the contents of R6. This is the address of the device ROM driver 
704 ; suerout ‘at. BOOT5S needs this later to read files from the TU58 
; device. 


O80E'CF 56 00 768 MOVL R6,DRIVER_SUBROUT ; Save driver address. 


The BOOTS8 program is loaded at “XC000 bytes past the start of good 
memory. This permits VMB or other er teary bootstraps to be loaded at 
the familiar “*X200 offset. Adjust SP for now to create SCB and stack. 
Save address of the base of good memory, and default start address. 


OO48'CF SE 


o 
o 
SPMNWMNMMNIVIVINIO OOO OOCOSCCSCCCSOCCOCSoooO 
N“N 
oa 


SSN 
ee ee i 
ONO WI —CwO 


MOVL SP,START_ADDRESS ; Save original SP as user's 
; default load address. 


| 
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/v04-000 SETUP. BOOTS8 - Set up boot environment 2aSEP-1984 $3:39;30 taoors. sre BOOT58.MAR; 1 “tes (4) |" 
| $708 g § 3 SP+*XBEO0: D2, trkenee Gemteeras tuaatens Lt 
: ' rimary bootstra ' | 
| itd 7 4 é BOOTHIGH: Sislagitintidiseceaereaste eeeeeneeeen p oD ee we ee en wren e + 
| $509 5 3 unused | 
0000 727 ; | 
0000 7 8 : Geeeeoesoosonsesosesoesnescooeoscecesco + 
0000 C4 3 
sti £39 3; Implicit outputs: 
0000 o3¢ : DRIVER_SUBROUT = address of the driver subroutine 
B88 a ; START ADDRESS = <base of good memory + *X200> 
000 734; GOODMEM_BASE - base address of 64K bytes of good memory 
0000 735; FIRST _FREE_BYTE - address of first free byte past BOOTS8 
44 £38 : PR$_STBB - address of an SCB filled with handler address 
0000 738 ; When SETUP_BOOT5S8 exits to the BOOTS8 command processor, 
0000 739; physicai memory looks Like the diagram below: 
0000 740; 
0000 741 : base+0: $ weoeeeeeseeeoosoooeeoooooceccocecoecooca + 
0000 res 3 H boot block 0 
0000 74 3 base+*x200: $ weeeesesooesosowosooosoeooovceccocceco + 
0000 744; : ; 
0000 745; H unused : 
0000 746 ; ' : 
0000 747: base+*xC000: Ea ae a NN + 
0000 748 ; : H 
0000 o8 j BooTss 
751: BOOTHIGH: (ancavcoucesescsnesccecrscsusesessenases + 
752 ; H stack : 
753 . SP: ¢wwmoeeeeeeeeeeeeeeeoooeeoeeeeoeeeecoecs + 
754 ; 
ae 
00000001 757 IF NE , SAENVIRON : If operating standalone, 
£38 : include this routine. 
760 SETUP_BOOTSS: ; Prepare a boot environment. 
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v04-000 SETUP. BOOTS8 = Set up boot environment rae $3:58;30 taoors. sre BOOT58.MAR; 1 % (4) 
O024°CF FEOQO CE 9E 00 779 MOVAB <~*X200(SP) ,GOODMEM_BASE ; Save base of good memory too. 
QOOOBEOO 8F CO 00 780 ADDL2 wcBOOTSe OFFSET *X200S. <2 of rset SP to Sadress start of 

5E 0 78) SP ; BOOTSS code. 
gh Ag 
0 tee : peserye space for a System Control Block (SCB) immediately after the 
0 785 ; BOOTS8 code. Write the address of a machine check fault handler in 
0 £36 ; all vectors in the SCB. This handler is used during bootstrapping 
0 787 ; except when the bootstrap code Tp writes a different 
oes ; handler address in one of the SCB vectors. 
0 790 ; The Low bit set in the address of the fault handler causes the 
4 £3) 3; handler to execute on the interrupt stack. 
0 793 * 
56 O88D'CF 9E 00 794 MOVAB BOOT _FAULT+1,R6 ; Get the address of a handler. 
57 0200°CF + 9E 00 795 MOVAB BOOTRIGH+*X200,R7 : Get the address of the first 
3 £36 ; byte past the SCB. 
0 798 FILL_SCB: : Fill the SCB. 
77 = 56 dO 00 799 MOVL R6,-(R7) ; Write 1 vector. 
57 OFF 8F B63 00 800 BITW #*°X1FE RZ 3; Check for page boundary. 
F6 12 00 801 BNEQ FILL_SCB ; Not yet. Write another vector. 
1 oF OO MTPR R7,#PR$_SCBB ; SCB full. Write SCB address 
:; into processor register. 
: Create a stack, and save the address of the first free byte past the 
3 Space used by BOOT58 and its supporting environment. 
5E 0800 C7 9E MOVAB <4**X200>(R7),SP ; Create a 3 page stack. 
OO28'CF SE 00 MOVL SP,FIRST_FREE_BYTE ; Save address of Ist byte of 


3; free physical memory. 


If XDELTA is Linked into this program, set_up 2 XDELTA handlers in 
the SCB -- for breakpoint and trace trap. Then initialize the XDELTA 
breakpoint table, and, if requested, execute a breakpoint before 
proceeding with the bootstrap. 


f XDELTA is Linked, do next. 


MEW O OCONAUES WIN $9 ODNAUMUES WN (OO OONOU SWI 


9.000900 09 00 09 G9 C5 Co Cd Od Cd C9 0D OD CD Gd Cd Od C9 GD GO CS CD OD OD OD CD GD CO CD C0 CO 
WNIAINIWIINIPINPINININIPININIPDD 4 9 2 OS SS COOOOCOCOCO 


00000001 IF NE , SADEBUG 3:1 
QOOO'CF 9€ MOVAB XDELBPT, “x2C(R7) ; Plug BPT handler. 
28 A? O000'CF 9E MOVAB XDELTBIT,“*X28(R7) : Plug trace trap handler. 
OOOO'CF OO5SO"CF 9E 00 MOVAB = INISBRK,XDELIBRK ; Store initial breakpoint. 
0155 05 €1 00 BBC #RPBS$V_BOOBPT .R5,- ; If no breakpoint is wanted, 
: NOBRK ; just continue in BOOTSS. 
\ 
if H 
° ; Initial breakpoint. Registers usage is as follows: 
0 : RO-R5 = unchanged 
0 3 R6 - address (+1) of a bootstrap fault handler 
0 : R7 - address of the SCB 
0 2 R8-R11 = unchanged 
0 3 AP-FP = unchanged 


r 
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0050 36 ; SP - address of a 3-page stack 
Bpe e3) 3 
05 8 
005 839 INISBRK:: 3 Breakpoint 
03 0050 840 BPT 3; Stop in XDELTA. 
0051 841 
0051 Ha) NOBRK: 3; Proceed with BOOTSS. 
0051 84 -ENDC 3: End of XDELTA conditional. 
0051 844 
OP 2) 845 ; 
0081 re ; The environment is okay. Now call the command processor. 
051 848° 
0057‘CF 00 FB 0051 gs CALLS #0,B00T58 ; Accept and process commands. 
° 00 Opes 520 HALT 3; For now, just halt on return. 
0057 #852 -ENDC 3; End of standalone condit ‘onal. 
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MOOOOO0O0O00 O00 OOO 0000 0900 09 09 09 09 09 09 SI NIN NIN NS NAA AAAAAAAOMUIIUNT 
FUN — OODNA UNE WIN $9 ODNAUE WIN $9 OO NAME WIN OOO NAM SW OOONOM 


OOO ~00009009 09 09 C0 Od 09 C9 OD Cd GD CD C9 CD CO GD Cd CO CD CD Cd CD Cd CD CD CD Cd C9 C9 CD CD C9 CO. CD CD CD CD CO: 


905 ; 
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-SBTTL BOOTS8 = Process bootstrap commands 


5 oe 
3; Functional description: 


The command processor saves current register values, sets a 
command options ‘engeere to a default state, and then accepts 
commands until a START command transfers control to some other 
pre ram, or the user types <control=-P> to return control to the 
ONSOLE program. 


; Implicit inputs: 
COMMAND_FLAGS = a location to hold the default or modified 
command options. 
PARAM_BLOCK - address of the TPARSE phar ag block. Fields 
of interest are the following: 


TPASL_COUNT - # of longwords in block 
TPASL_OPTIONS = TPARSE flag bits 


TPASM_BLANKS = treat blanks explicitly 
nstead of invisibly 
TPASM_ABBREV = permit abbreviations 


# characters remaining in input string 

address of remainder of input string 

# characters in current token 

address of current token 

TPASL_CHAR character matched by a single 
character symbol type 

TPASL_NUMBER - binary value of a numeric token 

TPASL_PARAM - 32-bit parameter from state transition 
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a artes in TPARSE parameter block 
buffer for input string 

buffer for a single Line of input | 
length of buffer for eingte Line of input 
string descriptor for RM stove 

address of TPARSE keyword table 

address of TPARSE state table 
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KEY_TABL 
BOOTS8_TABLE 
; Outputs: 


RO-FP = original or user-modified values 


.ENTRY BOOTS8,- , 
“M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 


: Save R1-PC on the stack. Store the stack address 


907 ; of saved RO in own storage. 
38 
910 MOVL SP, CURRENT_ADDRESS ; Save SP in own storage. 


n~o 
wo 
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Then push a 0 to represent the 
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#0 
CURRENT_ADDRES 


00 O5F 9 : 
oF is 06 PUSHL ; original PC, and push SP. 
FFF 8F 064 91 PUSHR #*M<RO,R1,R2,R5,R4,R5,- ; Save all the other registers 
a8 gis RGR? -RBLRIRIO,RI .~  ¢.0n the stack too. 
O040°CF SE 00 006 aig MOVL SP,REGISTER_TABLE ; Save address of saved register 
060 91 3 values. 
06D 918 
0060 919; sae 
06D 920 ; Initialize the mask that describes default address interpretation 
06D 921 ; and value display mode. | 
$8 384: | 
OO2C'CF D4 006D 924 CLRL COMMAND_FLAGS ; Initialize command settings. | 
00000100 8F C8 0071 925 BISL CMD_M_PHYSICAL,=- 3 Set to interpret addresses 
002C'CF 0077 926 COMMAND_FL 3 as physical. 
OB0A'CF SE D0 OO7A 927 MOVL SP,L_OLB_STACKP ; Save current stack pointer to 
OO7F 928 ; allow restoration on 
OO7F 929 ; exceptions. 
O809'CF 01 90 QOO7F 930 MOVB #1 ,B_ENVIRON_SAFE ; Note that environment is 
ones 34 : initialized. 
O054'CF DE 0084 93 MOVAL HELP_FILE_SPEC,- ; Set up help fie descripter 
0062" CF 0088 934 HELP-FILE-DESCRIP+4 ; 
0066'CF DE 0088 935 MOVAL DEFBOO_SPEC,- ; Set up defalut boot command file spec 
0074°CF OO8F 936 DEFBOO-DESCRIP+4 : 
OO78'CF DE 0092 937 MOVAL BOOTFICE_SPEC,- ; Set up optional boot command file spec 
0086 ° CF 3298 ts BOOTFILE_DESCRIP+4 : 
0099 940 READ_COMMAND: ; Main command erpcepetns Loop. 
57 OO00°CF 9€ 0099 941 MOVAB PARAM_BLOCK,R7 3; Get parameter block address. 
DOSE 9483 
QO9E 944 ; Initialize string buffer address and length in the TPARSE parameter 
QOO9E 945 ; block. Then transfer a 1 to n Line command into the string buffer. 
OO9E 946 ; 
O09E 947 ; . 
08 A? D4 QO9E 948 CLRL TPASL_STRINGCNT(R7) ; Initialize string Length. 
O1A3"CF 9E QOAI 949 MOVAB COMMAND _STRING,- ; Initialize string buffer 
OC A7 0OAS 950 TPASL_STRINGPTR(R7) ; address. 
QOA7 = 951 
00A7 226 : ‘gig : : 
QOA7? 953 ; Check for non-interactive input: if taking commands from an indirect 
8 v4 gee 3; file, the file is in memory. Call a routine to get the next record. 
OOA7 956 
OA? 957 READ_A_LINE: ; Process one Line. f 
07 €1 OOA7 3 BBC #CMD_V_INDIRECT,=- : If processing interactive 
31 002C°CF OA9 95 COMMAND FLAGS, 10$ ; commands, branch. 
0180" CF 1 OAD 960 JSB GET_A_RECORD : For indirect, get a record. 
= se 0B1 961 BLBC RO,208 3; Branch if error 
0B4 306 3 
? +t ; Put out a <cr><lf>. 
7E «=67C 4 965 CLRQ -(SP) :; Create a null descrptor 
O7B8°CF OF 6 % PUSHAB LINE TERM ; Address of <cr><\f> 
0000'CF 00 FB OQOBA 9% CALLS #0,B00$READPROMPT ; ‘Print’ the <cr><lf> | 
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BOOT 
4550 €9 Ely oe 
¢ 9 
C 970 
OC 971 
C 3f6 
Si 629A C 97 
54 ODC'CF YE C 974 
50 C1 QOCA 975 
60 ree" 0 Bs 378 
E C Dd 97 
54 DD 00D 378 
0000" CF 93 FB 44 97 
11 DC =. 980 
ODE 981 
ODE 386 
ODE 98 
ODE 984 
ODE 985 
QODE oa6 
QODE 98 
OQODE 988 
QODE 989 
OODE 990 
QODE 991 
QODE 99 
itd 99 
ODE 994 
QODE 995 
itd 99 
52. OODB'CF 9E 00D 99 
50.) 605)=— DO s«OOE 998 
00000800 8F DS O0E6 999 
0040°DF40 BoE 1000 
06 1 a9 1001 
OF €35 OOF 1308 
002C'CF OOF4 100 
13 OOF? 1004 
bees 1005 
52. OD F 1008 
7E (4 8F 9A OOFA 100 
O7AE'CF OF sf 1008 
102 1009 
1 1010 
1 19i) 
1 1 \§ 
102 101 
19 1014 
00000000 41 1015 
1 1 1g 
1 101 
1 1918 
oooo'cF O03 FB Q1 101 
i iis 
oso gp Bier Hes 
at HS 8 
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BLBC RO,20$ ; Branch if error 


Echo the command Line to the console. A special asete spring is put 
on the end of the buffer to cause a <cr><lf> after printing the Line. 


MOVZBL (R2),R1 ; Restore R1 (overwritten by BOOSREADPROMPT) 
MOVA COMMAND BUFFER+1,R4 3; Get address of first char 

ADDL oR4,R ; Calculate address of last char 

MOVL  LINE_fERM, (RO) : Put Line term past Last char 

CLRO =(SPT 3; Create null descripter 

PUSHL R4 ; Push address of first char 

CALLS #3,BOOSREADPROMPT : Echo command Line 

BRB 20$ ; Go check for success. 


If this is the first time thru and the ‘disable default boot’ flag is 
not set, then execute a ‘BOOT’ command to invoke the DEFBOO command 
file on the console TU58. This action mimics that of the 11-780 on 
reboot if the AUTO-RESTART switch is ON. 


Interactive input from console terminal: 


Load an input buffer address, length in bytes, and address of a prompt 
string onto the stack. Then call a subroutine to prompt for and read 
an input Line from the terminal. If the read fails, return to the 
caller with an error status code. 


10$: ; Interactive input. 
COMMAND _BUFFER,R2 Get address of command buffer. 
MOVL #SAVED_RS,R Index for R5 : 
BITL #RPBSM_NODEFBOO,- Skip possible unattend boot if 
@REGISTER_ TABLECRO] flag set in R5 


BNEQ 1 
BBCS #CMD_V_UNATTEND,- 3; If unattended, use the BOOT command 
COMMAND _FLAGS,- : built into the command buffer 
18 GOT_A_LINE 
PUSHL R2 : Push address on stack. 
MOVZBL #CMD_BUFFER_SIZE,-(SP) ; Push buffer size on stack. 
PUSHAB PROMPT_STRING ; Push prompt address on stack. 


3 If debugging with DEBUG in a timesharing environment, set up an 
3; RMS input descriptor for BOOSREADPROMPT. 


IF NE , TSDEBUG 


ee BOOSGQ_CMDESC ; Zero the # chars in buffer. 
CALLS #3,BOOSREADPROMPT 3 frenet for and read an input 
: line. 
208: 3; Check for error on input. 
BLBS RO,GOT_A_LINE ; Branch on success. ‘ 
RET ; Return to caller on failure. 
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; The command buffer holds an input Line. Calculate the Ist free byte 
; in the output buffer. One character at a time, copy the characters 
; in the input buffer into the output buffer. 


Ooo 
Sete ee tees 


1 
¢ GOT_A_LINE: Process an input Line. 
ADDL3 


TPASL_STRINGPTR(R7),-_ ; Add start of output buffer to 
TPASL_STRINGCNT(R7),R3 ; to count of characters in that 
; buffer to point to free byte. 
MOVZBL (R2)+,R0 ; Get Length of input Line. 
BEQL READ_A_LINE ; If null Line, get another. 
MOVL R2,RT ; Need input buffer address in 


R1 for a LOCC instruction. 


Pick up one character at a time. If a hyphen, this may be a 
continuation Line; branch to special handler. If an exclamation 
tel this is a comment; skip characters until end of comment. 

therwise, increment the character count, store the characters in 
the output buffer, decrement the count of input characters left, 
and, if count is nonzero, loop through here again. 


GET_A_CHARACTER: Loop to read characters. 
MOVZBL: (R1)+,R2 Get a character. 


3 CMPB #*A/-/ ,R2 ; Might this be continuation? 
$ BEQL HYPHEN_IN_LINE : Yes. Go process it. 

CMPB *“A/S/, ; Is this a comment? 

BEQL BYPASS_COMMENT : Yes. Go bypass it. 


Normal character. Increment count in TPARSE parameter block, and 
write character to output buffer. Then loop for next character 
unless input Line exhausted. 


INCL Increment character count. 


TPASL_STRINGCNT(R7) 
(R3)+ 


SIDE De DED. De DEDEDE DDS TTT Ee BB EEE EAI 
NOUS WN $$ O OONOA UE WIN SO OONAUES WN" OOOnNOuUs 


MOVB R2, ; Write output character. 
MORE _CHARS: ; See if more characters. 
SOBGTR RO,GET_A_CHARACTER ; Decrement character count, 
: branch if Line not finished. 
BRB PARSE _COMMAND 3; Command all collected. Go 


parse the command. 


COOCCCQOOCOOCOOCOOOOOO COCO COCSOOOOOOOOOOOOOOOOOoOoO 


n all characters until another exclamation 
point or end of Line. A second exclamation point ends the comment, 
and normal character processing can resume. End of Line indicates 
that the entire command is in, and the Line can be parsed. Note that 
the LOCC instruction updates R1 and RO appropriately. 


Comment character: ski 


AOOOOOOOAOOOD BONNE tS S| TOOMOOOOOOVOVOOOOVOVOE &] -M@T@OIOamw 
a a at ae a a a = a a a 2 2 = 2 a 1 8 8 2 2 2 8 st tS 


Ce ee we we ee we wwe ew lw ww ew www lw aw fw aw ala la lola lololololeleololeololololelolelelelalelolololola! 


RIPPINIPIPNIPINIMNINININPYAIPINPININIPYNININNY 


—OOODNOULS WO 0 


Sd: te ee i 


BYPASS _COMMENT: ; Skip a comment. 
DECL 


RO : Decrement character count 


rom, 


' — ee eee 


1 14 
| BOOTSB - Bogtstrae command processor 15- 
BOOT 4 


SEP-1984 23:38:51 VAX/VMS Macro v04-00 Page 23 
v04=000 = Process bootstrap commands mi ise ts 7: 33:38:35 teoots sre BOOTS8S.MAR; 1 . (5) 
12—E 1 3; for the comment mark. 
| 01 A1 SO 21 SA QI 1 j LOcc #*A/'/,RO,10R1) ; Look for another °'!"’. 
47 13 Q1 1084 BEQL PARSE_COMMAND ; None exists. Go parse command. 
51 D6 Q1 1085 INCL 3: Found one. Move to next char. 
EE 11 1 i ! § BRB MORE _CHARS ; Continue getting characters. 
139 1088 ; 
139 1089 ; Line continuation character: save current output buffer pointer and 
139 1090 ; length for now. Scan characters after the hyphen. If all blanks until 
139 1091 ; a comment character or end of line, this is really a continuation 
139 1 38 3 character. Otherwise, this is just a hyphen (with some other syntactic 
139 10935 ; value). 
0189 1098 
0139 199 HYPHEN_IN_LINE: ; See why a hyphen is here. 
54 53 00 0139 1097 MOVL RS : Save output buffer pointer. 
55 O08 A? 00 013C¢ 1938 MOVL TPASL_STRINGCNT(R7),RS ; Save output char. count. 
83 52 90 143 1979 MOVB R2,(R3)+ : ure hyphen into output 
3: string. 
08 A7 R6 0143 1101 INCL TPASL_STRINGCNT(R7) : And ny the character. 
1A 1 0146 1196 BRB NEXT_CHAR ; See if more characters. 
O148 104 
0148 1105 ; Another character in Line. If blank, keep look ing, If comment, skip 
0148 1106 ; over the comment, and then keep looking. If anything but a blank, 
0148 1107 ; assume the hyphen was NOT a Line continuation, and resume normal 
0148 1108 ; character processing. 
$18 1110 
0148 1111 LOOK_FOR_ BLANK: 3; Check for blank or ‘"!"’. 
38 81 9A 0148 113 MOVZBL (R1)+,R2 3; Get next character. 
8 25 90 0148 111 Ove R2,(R5)+ 3; Store in output string. 
08 A D6 O14E 1114 INCL TPASL_STRINGCNT(R7) 3: Increment output count. 
52 20 91 0151 1115 CMPB #*Aa/ 7,R2 : Is character a blank? 
OC 13 0154 1116 BEQL NEXT_CHAR ; Yes. Move to next char. 
52 09 91 0156 1117 CMPB #*Aa/ He : Is character a tab? 
07 13 0159 1118 BEQL NEXT_CHAR : Yes. Move to next char. 
52 21 91 0158 1119 CMPB #*a/T/,R2 : Is character an ‘'!*'? 
OF 13 OIE 1120 BEQL  SKIP_COMMENT ; Yes. Move past the comment. 
CS 11 0160 1121 BRB MORE _CHARS 3 No. This is not a Line 
0162 11 § 3: continuation. 
O16 1194 
B16 it $3 Pete, Sunt tne for et pons Pettgeetiton point, or end of Line. 
1 $ : character count is exhausted, fa rough. 
O163 1198 
162 1129 NEXT_CHAR: ; See if more characters. 
€3 50 F5 19 i ? SOBGTR RO,LOOK_FOR_BLANK : If a character, look at it. 
165 1132; 
165 11 5 3: Found end of Line. Restore the TPARSE parameter block command buffer 
165 1134 ; pointer and command character count to their state before the hyphen 
165 1135 ; was found. Then go on to read another Line. 
168 4189 
165 1138 END_OF_LINE: : Found end of Line. 


—————., 
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— 
— 
Ww 
eo 


MOVL R4,R3 ; Restore saved pointer to 
MOVL RS,TPASL_STRINGCNT(R7) ; command eerie and count. 
BRW READ_A_LINE ; Read another Line. 


3; After a hyohen. found a comment delimiter. Search for a comment 

: ag delimiter. If find one, go on looking for a blank or non=blank 
3; to interpret the hyphen. If end of Line, just restore command 

3 pointers and read next Line. 


165 
168 1140 
16C «1141 
16F 1136 
16F 114 
16F 1144 
16F 1145 
16F 1168 
16F 114 
16F 1148 
O1ee 1190 SKIP_COMMENT Ski d af hyph 
a : 3 command after en, 
50 07 Ol 1131 DECL. RO : Ignore the exclamation point. 
01 Al 50 21 3A 0171 1126 LOCC #*A/'/,RO,1(R1) 3 Is there another °'!*'? 
44 13 8128 115 BEQL END_OF LINE 3; No. End of Line. Go to next. 
1 06 0178 1154 INCL R1 : Yes. Move past it. 
E6 11 O17A 1155 BRB NEXT_CHAR ; And keep looking for blank. 
017C 1156 
017C 1157 ; 
017C 1158 ; Parse: initialize parsing state. Push the address of the keyword 
017C 1159 ; table, the state table, and the TPARSE parameter block onto the 
017C 1160 ; stack, and call TPARSE. 
017C 1161 ; 
017C 1106 
017C 1163 PARSE_COMMAND: : Command is all here. Parse it. 
08 DO O17C 1164 MOVL #TPASK_COUNTO,- 3 22? 
67 O17E 1165 TPASL COUNT (R?) ; 
02 C8 OI7F 1166 BISL #TPASA_ABBREV,- 3; Permit abbreviations in the 
04 A7 0181 1167 TPASL_OPTIONS(R7) : command keywords. 
QOOOO'CF 9F 0183 1168 PUSHAB KEY_TABLE 3; Pass address of keyword table, 
QOOOO'CF 9F 0187 1169 PUSHAB BOOT58_TABLE 3 state table, an 
DD zie 1170 PUSHL ; TPARSE parameter block. 
O00O'CF 03 FB QO18D 1171 CALLS #3,LIBSTPARSE 3; Parse the command. 
O808'CF E8 0192 1126 BLBS B_ERROR_OUT,=- : If error message already 
16 0196 117 CCEAR_ERRBIT 3 output, get next command. 
1750 E8 0197 1174 BLBS RO,NEXT_COMMAND : If success, get another. 
019A 1175 MSG oF =Syntax error> ; Output error message. 
00B6 30 O19A BSBW BOOSF ACMSG 
72 65 20 78 61 74 6E 79 53 2D 45 2D 0190 eASCIZ \-E-Syntax error\ 
00 72 6F 72 O1A9 
Q1AD 
O1AD 1176 
O1AD 1177 CLEAR_ERRBIT: ; Clear flag. 
O808°CF 94 QIAD 1178 CLRB B_ERROR_OUT ; Clear error output flag. 
0181 1179 
0181 1180 ; 
0181 113 3; Branch back through the command Loop. 
0181 11 ¢ 3 
0181 118 
oie Vee NEXT_COMMAND : ; Process another command. 
0181 1186 ; Make sure the command flag was cleared. The INSV instruction 
181 yt ; will clear all the bits im COMMAND_FLAGS that indicate that a 
3 i 3 3; command is awaiting execution. 
50 D4 0181 1190 CLRL RO : Generate 32 bits of 0's 
50 FO 0183 1191 INSV RO,- : Source 
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#CMD_V_LOADCMD,- 
#NUM-OF_CMDS,= 
COMMAND FLAGS 
READ_COMMAND 
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3; Starting position 
H bengsh 
3; Destination 
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-SBTTL GET_A_RECORD = Extracts an RT-11 format record 


+4 
3; Functional description: 


One block of the command file is in my ot | A pointer indicates 
the next byte to be read. This routine collects a record by 
reading a character a time from memory. If end of block is 
reached, this routine reads in the next block (if any). 


At end of file, this routine turns off the indirect command 
file process tng flag, and returns a success status code. The 
outer parser will process the null command and then prompt 
for further interactive input. 


RT-11 test files are in ASCII stream format. The format is as 
follows: 
no character count associated with the record 
the record begins with the ASCII text 
a record ends in a FF, LF, or 
bytes containing CR or null are ignored 
Implicit inputs: 


IND_CMDBUF_PTR 
IND~CMDBUFFER 


512 
IND_W_NEXT_LBN 
IND~W-BLKS_LEFT 


- contains address of next byte to read 

- starting buffer address of command file buffer 
- number of bytes in command file buffer 

- next LBN in the command file , 

- blocks left to read from the command file 


Outputs: 
This routine preserves registers R5-R11. 

Implicit outputs: 
COMMAND_BUFFER = byte 0 is the record size in bytes 


bytes I-n are the ASCII text of the record 
buffer contains no FFs, LFs, CRs, or VIs 


— — ss = 2 sd a = os —s — 9 2) ss — 9 2 ss 1s ss 2 ss a os YS 


The static variables that point to the indirect command file 
and its data are updated. These variables are: 


IND_CMDBUF_PTR 
IND~CMDBUF FER 
ND7W_NEXT_LBN 
IND“W~BLKS~LEFT 


— 


GET_A_RECORD: 
CLRL 


felelelelelolelalolal aloo alo la lala lela lalolelolololololelolelolololelelolololelolelololololelololol ola) 


; Collect 1 record. 

; Clear character count. 

; Get source address. 

; Get destination address. 

; Get address of 1 byte past end 
; of buffer. 


R1 

MOVL IND_CMDBUF PTR 
MOVAB COMMAND BUFFER 
MOVAB = IND_CMDBUFFER+ 


tt SS Ss = —) —) — 2d 9 — 1 


51 04 
53 O7A3'°CF 00 
52 OODC°CF 9E 
54 = O7A3°CF 


Lad 
> 
= 
Sete tee tee 
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1CE 1254 
1cE 1 22 GET_CHAR: ; Read 1 character. 
54 53 D1 OICE 1256 CMPL R3,R4 3; Are we at the end of buffer? 
47 =1F O1D1 1257 BLSsSu 208 ; No. Branch to get character. 
O7A7°CF BS 103 1258 TSTW IND_W BLKS_LEFT ; Any blocks left to read? 
61 15 318 1259 BLEQ END OF ap gee ; No. Process end of file. 
06 BB 0109 1260 PUSHR #*M2R1>R2> 3; Save R1 and R 
OSAS'CF 9F O1DB 1261 PUSHAB IND_CMOBUFFER : Send address of buffer for a 
O7A9'CF DD ODF 1 $6 PUSHL IND_W_NEXT_LBN ; block, and an LBN. 
O7A9'CF B86 les 126 INCW IND_W_NEXT_LBN ; Increment next block number. 
O7A7°CF B87 OIE? 1264 DECW IND W BLKS_LEFT : Decrement blocks left. 
OOOO'CF O02 FB biE8 1265 CALLS #2 FICSR AB_LBN 3; Read a block. 
06 BA O1FO 1266 POPR #*M<R1,R2> ; Restore R1 and R2 
19 50 +€8 pies 1267 BLBS RO,10$ ; Branch on success. 
O1F5 1268 MSG <-E-Cannot read file> 
0058 30 O1FS BSBW BOOSF ACMSG 
65 72 20 74 6F 6E 6E 61 43 $p 45 2D O1F8 eASCIZ \-E-Cannot read file\ 
00 65 6C 69 66 20 64 61 ager 
44 «11 020¢ 1268 BRB EXIT_GETRECORD ; Return with the error. 
O20E 1271 10S: : New block of file in memory. 
OSA3'CF ODE OS45 1$%¢ MOVAL IND_CMDBUFFER,- ; Set up buffer pointer. 
O7A3'CF 0212 127 IND~CMDBUF _PTR 
53 O7A3"CF 00: Bst2 iste MOVL IND_CMDBUF_PTR,R3 ; Set up in register too. 
O21A 1376 3 
O21A 1277 ; Register usage below is as follows: 
O21A 1278 ; 
021A 1279 ; RO - holds a character 
O21A 1280 ; R1 - count of characters collected so far 
O21A 1281 ; R2 - address of next free byte in output buffer 
O21A 1282 ; R3 - address of next byte to read 
O21A 1283 ; 
021A 1284 
O21A 1285 20$: ; Buffer is okay. Get a char. 
50 83 9A O21A 1286 MOVZBL (R3)+,R0 3; Get a character. 
AF 13. 021D 1287 BEQL GET_CHAR ; Skip nulls. 
OD 50 91 O2IF 1288 CMPB RO, #CAR_RETURN ; Carriage return? 
AA 13 0222 1289 BEQL 3; Skip them too. 
OA 50 91 8553 1629 CMPB RO,WLINE FEED 3; Line feed? 
17 13 0227 1291 BEQL END_OF RECORD : Yes. Branch. 
0B 50 91 0229 1638 CMPB RO, #VERTICAL_TAB ; Vertical tab? 
is 13 8S C 129 BEQL ND_OF RECORD :; Yes. Branch. 
0c 5 91 O22E 1294 CMPB RO, #FORM_FEED : Form feed? 
OD 13 0231 1295 BEQL END_OF __RECORD ; Yes. Branch. 
51 06 Osee 1296 INCL R1 3; Increment character count. 
82 50 90 0235 1297 MOVB RO, (R2)+ 3; Save the character. 
94 «11 see : + BRB GET_CHAR ; Get the next character. 
23A 1300 ; 
3A 1301 ; End of file has been reached. Turn off the indirect command file 
r : 8 3 processing flag, and return with success to caller. 
A 1304 , 
A 1305 END_OF_FILE: : End of command file. ‘ 
80 8F 8A A 1306 BICB #CMD_M_INDIRECT,- ; Clear command file flag in 


002C'CF 
QODB'CF 51 90 
52 OODB'CF 9E 
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command processo SEP-1984 
- Extracts an RT- -11 format yaa tb 
if COMMAND_FLAGS 

09 END_OF RECORD: 

10 MOVB 1,COMMAND_BUFFER 
VY MOVAB COMMAND _BUFFER,R2 
18 MOVL R3,IND_CMDBUF _PTR 
15 RETURN_RECORD: 

16 MOVZWL #SS$_NORMAL ,RO 

18 EXIT_GETRECORD: 

19 RSB 


“ 88: 


02:30 


Bete 


AX/VMS Macro V04-00 
BOOTS.SRCJBOOTSS.MAR; 1. 


; command flag longword. 

End of record seen. 

Store record count 

apt —o buffer address 
Update ye ins pointer. 


Successful record collection. 
Set success status code. 


Restore registers and return. 
Return. 


Page 28 
’ (6) 


B 15 
- Bootstrap command processor 15-SEP-19 


++ 
BOOSF ACMSG - Output facility-soecific error message 


BOOTS8 4 2:38:51 AX/VMS M v04-00 P 9 

Verte Output message routines 2reEb a 984 33:59:30 teoors. sre Boot 8.MAR;1 np 23) 
0 é -SBTTL Output message routines 

| 5 ; 


Functional description: 


; Calls BOOSMSGOUT to output an error message preceded by a 
: new Line and facility name string. 


; Inputs: 
O(SP) = address of an ASCIZ message text 
; Outputs: 


This routine preserves all registers. 


BOOSFACMSG: : 
BSBW 


000D 30 B BOOSMSGOUT ; First output facility name. 
OA OD ASCII <CAR_RETURN><LINE_FEED> ; New Line. 
00 38 35 54 4F 4? 42 25 ASCIZ /%B8006158/ 3: Facility name. 
0000 = 31 BRW BOOSMSGOUT ; Now output mes s%5e. 
s+ 
> BOOSMSGOUT - Output message on terminal 
: Functional description: 
: Outputs a message on the console terminal. 
: Inputs: 
: O(SP) = the address of an ASCIZ message string 
: Outputs: 
; B_ERROR_OUT - has low bit set to indicate that a message 
; has been output to the terminal 
BOOSMSGOUT: Display message on terminal. 
7C CLRQ -(SP) Create a null descriptor. 
DD PUSHL  8(SP) Pass as address of buffer. 


08 AE 
QOOO’CF O03 FB 
9€ FAOO 8F 00 3A 


O808'cF 01 90 
01 Al 17 


CALLS #3,BOOSREADPROMPT 
Locc #0,#64000,a(SP)+ 


MOVB = #1,B_ERROR_OUT 
JMP 1(R1) 


pte message. 

Look for zero at end of ASCIZ 
message string. 

Set a flag saying message has 
been sent to terminal. 

Return to caller. 


COOOCOOCOGCOOSOSOSOSOSOSSSOOOCOSOSOCOOCOCSCOCOOCSOOCOSCOOCSO OOOO OCOOOOOCOOOO 

BCOOWIWS CO UWIWIWININIWIWNINIWWININIWINNNININIWNI WWII OS 00 O WWI NIN WIWINIWINI U.N AIAIWWNNW 
a a a a a kk kt kt a dt 8 8 8 a ts 
FW OOD NOAUES WN OS ODNAM EWN OO ONAUES WN (OOO NAUESWN OC OONOUS WN 


00 
50. = 002C "CF 
00 O02C'CF 50 
06° 00 50 
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re ! 16 -SBTTL EXECUTE_COMMAND = Execute a single command 
7B 41378 ;+4+ 
8 a : ; Functional description: 
78 1 5) : Determines from the COMMAND_FLAGS settings what command is to 
78 1 ¢ ; be executed. Executes that command, clears the flag bit, and 
78 1383; returns. 
0278 1384 ; 
027B 1385 ; Inputs: | 
027B 1 56 ; 
0 7B 1387 ; AP points to the TPARSE parameter block, which is to be passed 
8 A \ 3s 3 along intact to the command-specific action routine. | 
8578 1390 ; COMMAND_FLAGS indicates by a bit setting which command is to | 
78 133) : be executed. 
0278 1 8 : 
0278 1393 ; Outputs: | 
027B 1394 ; : 
$578 344 r RO - return status from the command execution routine 
0278 1397 ; This routine BRWs to the relevant routine, and that routine 
027B 1398 ; returns to EXECUTE_COMMAND's caller. 
0278 1399 ; 
0278 1400 ;-- 
027B 1401 
OFFC 0278 1406 -ENTRY EXECUTE _COMMAND,- 
o62D 1607 “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> 
EA 027d 1405 FFS #CMD_V_LOADCMD,- ; Get the command bi’. 
O27F 1406 #CMD_V_CMDFILCMD,- 
0280 1407 COMMAND _FLAGS RO 3 
ES bees 1408 BBCC RO, COMMAND _FLAGS,10$ ; Clear the bit. 
028A 1409 
028A 1410 10$: 
028A 1411 CASE RO, TYPE=B,<- ; Case on the command. 
Bsea Vols LOAD_FILE,=- ; Load a file.\ 
28A 141 START PROGRAM, = ; Start a program, 
028A 1414 EXAMINE _LOC,- ; Examine a location.\ 
028A 1415 POSIT DATA,- ; Deposit data. 
028A 1416 PRINT_HELP,=- ; Print help text at console. 
028A 1417 Boot OP,- 3 Boot the system ; 
028A 1418 EXECOTE piLge : Execute a command file. 
8F osee CASEB RO,#0,S"#<<30001$-30000$>/2>-1 
8E 30000$: 
028 -IRP EP, < LOAD_FILE, START_PROGRAM, EXAM 
0 BE - $GNED_WORD EP-30000$ 
0084" . ~SIGNED_WORD §LOAD_FILE-300008 
0194" ; ~SIGNED_WORD § START_PROGRAM-30000$ 
036E* 9 $3 - SIGNED_WORD EXAMINE _LOC-30000$ 
043F* + . SIGNED_WORD DEPOSIT_DATA-30000$ 
0515" 0296 - SIGNED_WORD PRINT_HELP-30000$8 
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9 z. 
0580' $8 - SIGNED_WORD BOOT_UP-30000$ 
0467' a « SIGNED_WORD EXECUTE_F ILE=30000$ 
9C 30001$: 
i 9C 
9C 1419 
029C 1420; 
9C 1421 ; If none of the above, report a fatal error. 
9C ese i 
9C «(14 : 
9C 1426 MSG <-F-Parsing error> ; Report parsing error. 
FFB4 30 OS 9¢ BSBW BOOSF ACMSG 
65 20 67 6E 69 73 72 61 50 2D 46 2D 029F eASCIZ \-F-Parsing error\ 
00 72 6F 72 72 asae 
00 0280 1425 HALT 3; Just halt. 
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| 81 1427 .SBTTL SET_LOAD_FLAG = Sets the LOAD command flag. 
Bl 14 § p++ 
| 4 1? ? 3; Functional description: 
| BI 14 é ; Sets the CMD_M_LOADCMD in COMMAND_FLAGS. 
B1 14634 : Implicit inputs: 
| 0981 1435: ee 
| 8 4 1 § 3 COMMAND_FLAGS = holds command interpretation flags 
B1 1438 ; Outputs: 

§ B1 14 3 : . 

0281 1440 ; RO = contains SS$_NORMAL 

02B1 1441 ; 

0281 1448 ; CMD_M_LOADCMD is set in COMMAND_FLAGS 

0281 1443 ; 

02B1 1444 ;-- 

02B1 1445 

OFFC 02B1 1446 ENTRY SET OAD_FLAG,= 
O85 1647 M<R2,R37R4,R5,R6,R7,R8,R9,R10,R11> 
01 CB 0283 1449 BISL pad M_LOADCMD,=- ; Set the LOAD command flag. 
002C'CF 0285 1450 COMMAND FLAGS 
50 01 3C 0288 1451 mOvZUL asst “NOPMAL RO ; Set success status code. 
046 O2BB 1452 RET 


—_ ae 


F 15 
SET START FLAG regete the START command 8 38 3: a8: 0 UBoors sae BOOTSE_MAR: 1 — doy 
Bt 1485 pe -SBTTL SET _START_FLAG = Sets the START command flag. | 
+ fe Functional description: 
BC 1659 Sets the CMD_M_STARTCMD in COMMAND_FLAGS. 
+! 1468 Implicit inputs: 
8 Bt 1ee7 COMMAND_FLAGS = holds command interpretation flags 
0 $5 1266 Outputs: 
8 4! 1468 RO es contains SS$_NORMAL 
0 BC 1469 ; CMD_M_STARTCMD is set in COMMAND_FLAGS 
gest tr 
7 0 BE ter ene TRS RGCASIR R6.R7,RB,RI,R10,R211> 
o92c of ce cp 1477 oe COMMAND FLAGS ; Set the START command flag. 
bs c? 1378 ney L.RO ; Set success status code. 


6 15 
158 - Bootstrap command pro 15=SEP=1984 23:38:51 VAX/VMS Macro V04-00 i 4 
Vv SET EXAM. FLAG - Sets the Ex EXAMINE command 4-SEP-1984 $3:58;30 BOOTS. SRC Boor 8.MAR;1 ~ dt 
C7 1481 ~SBTTL SET_EXAM_FLAG = Sets the EXAMINE command flag. 
CF 1eBS s+ 
c 14 4 : Functional description: 
| CP 1486 ; Sets the CMD_M_EXAMCMD in COMMAND_FLAGS. 
cf 1? 3 > Implicit inputs: 
cf 1ony ; COMMAND _FLAGS = holds command interpretation flags 
C 149¢ ; Outputs: 
bec? 1494 ; RO - contains SS$_NORMAL 
0 C7 1496 : CMD_M_EXAMCMD is set in COMMAND_FLAGS 
C7 1497; 
Br 1488 E 
C7? 1500 -ENTRY SET EXAM_FLAG,= 
0 C9 1301 AM<R2,R37R4,R5,R6,R7,RB,RI,R10,R11> 
0209 1308 BISL  #CMD_M_EXAMCMD,- ; Set the EXAMINE command flag. 
02cB 1504 COMMAND FLAGS | 
O2CcE 1505 MOVZWL asst NORMAL ,RO ; Set success status code. 
0201 1506 RET 


| 
| 
| 
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G- sets the DEPOSIT comman 2736-1382 33:05:30 teoots sre BOOTSB.AAR; 1 ” (12) 
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«SBTTL SET_DEPOS_FLAG = Sets the DEPOSIT command flag. 


"Functional description: 
Sets the CMD_M_DEPOSCMD in COMMAND_FLAGS. 
Implicit inputs: 
COMMAND _FLAGS = holds command interpretation flags 
Outputs: 
RO = contains SS$_NORMAL 
CMD_M_DEPOSCMD is set in COMMAND_FLAGS 


-ENTRY SET A ech aes 
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M<R2,R3,R4,R5,R6,R7,R8B,RI,R10,R11> 
c8 BISL #CMD_M_DEPOSCMD,=- ; Set the DEPOSIT command flag. 
002C ‘CF COMMAND _FLAGS 
50 1 3 poy. #SS$_NORMAL ,RO ; Set success status code. 


1 15 
- Bootstrap command processor 15-SEP-1984 23:38:51 VAX/VMS Macro v04-00 Pa 
SET HELP. FLAG e Sets’ the HELP command fl 2r$Ep= 1986 $3:09;30 feoors. src O0T58.MAR;1 wat (13) 
44 13 5 -SBTTL SET_HELP_FLAG = Sets the HELP command flag. 
DD 1 : pot 
44 : 3 3; Functional description: 
Oedd 1340 ; Sets the CMD_M_HELPCMD in COMMAND_FLAGS. 
0 4 1349 > Implicit inputs: 
0 . 1388 ; COMMAND _FLAGS <= holds command interpretation flags 
DD 1346 ; Outputs: 
DD 1547 ; 
DD 1548 ; RO = contains SS$_NORMAL 
O2DD 1549 ; 
O2DD 1550 ; CMD_M_HELPCMD is set in COMMAND_FLAGS 
O2DD 1551 ; 
02DD 1336 soo 
O2DD 155 
OFFC O2DD 1554 ENTRY SET_HELP_FLAG,=- 
ODF 1335 “M<R2,R37R4,R5,R6,R7,RB,R9,R10,R11> 
10 C8 O2DF 1389 BISL #CMD_M_HELPCMD,=- ; Set the HELP command flag. 
002C*CF 02E1 1558 OMMAND_FLAGS 
50 01 3C O2E4 1559 MOVZWL #SS$_NORMAL ,RO ; Set success status code. 
04 O2E7 1560 RET 
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- Sets the BOOT flag. 4-SEP-1984 $3:35:3 Yeoors sre BOOTSS.MAR;1 ad (14) 


.SBTTL SET_BOOT_FLAG = Sets the BOOT flag. 


“Funct tenet description: 
Sets the CMD_M_BOOTCMD in COMMAND_FLAGS. 
Implicit inputs: 
COMMAND _FLAGS = holds command interpretation flags 
Outputs: 
RO = contains SS$_NORMAL 
CMD_M_BOOTCMD is set in COMMAND_FLAGS 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


.ENTRY SET_BOOT_FLAG,- 
Am<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
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BISL #CMD_M BOOTCMD,- ; Set the BOOT COMMAND flag. 
COMMAND FLAGS 
>t ge #SS$_NORMAL ,RO 3: Set success status code. 
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essor 
the COMMAND FILE 4=SEP-1984 BOOTS .SRCJBOOTS8.MAR;1 (15) 
~SBTTL SET _CMDFIL_FLAG = Sets the COMMAND FILE flag. 


15-SEP-1984 2:38:51 AX/VMS M he 
spree E $3:38:3) ¥ acro V04-00 Page 38 


: "Functional description: 

Sets the CMD_M_CMDFILCMD in COMMAND_FLAGS. 
Implicit inputs: 

COMMAND_FLAGS = holds command interpretation flags 
Outputs: 

RO = contains SS$_NORMAL 

CMD_M_CMDFILCMD is set in COMMAND_FLAGS 
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Sh 


OFFC ENTRY SET CMDFIL_FLAG,=- 


“M<R2,R3,R4,R5,R6,R7,R8B,RI,R10,R11> 


BISL ad Ne al ; Set the COMMAND FILE flag. 
movzuL #SS$_NORMAL ,RO ; Set success status code. 
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00000040 8F 8 
002C "CF COMMAND _FLAGS 
50.01 0 
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p file specificatio 4-SEP- BOOTS.SRCJBOOT5S.MAR; 1 (16) 
-SBTTL MOV_FILESPEC = Pick up file specification 
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Functional description: 


Moves the full file specification from the input string into 
a buffer that can be read by the file handling utilities. 


Implicit inputs: 
AP points to the TPARSE parameter block, containing: 


TPASL_TOKENCNT = number of characters in file specification 
TPASL_TOKENPTR = address of the file specification 


Implicit outputs: 


FILE_SPEC - holds we file specification from the input 
command. 
FILE_DESCRIP - the Ist word of this quadword holds the 


Length of the file specification string; 
the 2nd longword holds the address of the 
file specification string. 


OFFC ENTRY MOV_FILESPEC,- 


“M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
MOVL § TPASL_TOKENPTR(AP) ,RO 


MOVC3 TPASL_TOKENCNT (AP) ,- 
(RO) FILE SPEC 


50 14 AC 00 
28 


Get address of input file 
; specification spring. 
Move file specification 


10 AC 
OO9B'CF 60 gte tng Sate own storage. 
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+ OO4C°CF ODE MOVAL FILE_DESCRIP,R1 Get address of descriptor. 
10 AC D0 MOVL TPASC_TOKENCNT (AP) ,- Load length field. 
61 DSC$W_LENGTH(R1) 2 
OO9B'CF ODE MOVAL FILE_SPEC,- ; Load address field. 
04 Al DSCS$A_POINTER(R1) 
50 «(01 3 noveM, #SS$_RORMAL ,RO ; Return success status code. 
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-SBTTL SAV_DEVSPEC = Pick up device specification 


Onn 


BIE WN $9 OD NAULS WN 9 OONOAOUES WN (OOS NOUSWI—OOOn Us 


$e 
Functional description: 


Moves a device specification from the input String into 
a buffer that can be read by the file handling utilities. 


Implicit inputs: 
AP points to the TPARSE parameter block, containing: 


TPASL_TOKENCNT = number of characters in file specification 
TPASL_TOKENPTR = address of the file specification 


Implicit outputs: 


DEV_SPEC - holds ue device specification from the input 
command. 

DEV_DESCRIP - the ist word of this quadword holds the 
Length of the device specification string; 
the 2nd longword holds the address of the 
device specification string. 


-ENTRY SAV_DEVSPEC,- 
@M<R2,R3,R4 oRS R6,R7,R8,R9,R10,R11> 
Get address of input file 


MOVL TPASL_TOKENPTR(AP) ,RO 
specification string. 


50 14 AC dO : 
MOVC3 TPAS$L a daca : Move device specification 


10 AC 
008A’ CF 
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60 (RO) ,BE string into own storage. 
51 OO8F'CF ODE MOVAL DEV_DESCRIP,R1 ; Get address of descriptor. 
10 AC dO MCVL TPASL_TOKENCNT (AP) ,- ; Load length field. 
61 DSC$W_LENGTH(R1) 
OOBA'CF ODE MOVAL ODEV_SPEC,- 3; Load address field. 
04 Al DSCSA_POINTER(R1) 
50. «(01 3 mOvZUL #SS$_RORMAL ,RO ; Return success status code. 


= Bootstrap command processor 15-SEP-1984 23:38:51 VAX/VMS Macro v04-00 Page 41 
LOAD_FILE = Load file into memory 46-SEP-1984 33:58:30 teoors: sre BOOT5S.MAR;1 (18) 
0342 169 -SBTTL LOAD_FILE = Load file into memor 
034 1639 . , 
8 42 1700 ;++ 3 
re \f 1 ; Functional description: 
42 17 5 : Opens a file and loads it into memory at the specified or 
r 1? : 3 default physical address. 
0342 1706 ; Implicit inputs: 
034 i444 3 
0342 1708 ; START. ADDRESS = address in which to load the file 
OR 1709 ; FILE BESCRIP - string descriptor of the file 
O3¢ ri? 3 CHANNEL _NUMBER = address into which to store a channel number 
034 ar 3 GOODMEM BASE - base address of 64K bytes of good memory 
0342 1713 ; FIRST_FREE_BYTE = address of first free byte past BOOTS8 space; 
0342 1714; this address is past BOOTS8, BOOTS8's SCB, and 
0342 1715 ; 3-page stack. 
0342 1716; 
0342 1717 ;-- 
0342 1718 
baes 1719 LOAD_FILE: 
7E 7C 0342 1720 CLRQ -(SP) : Clear space for a file 
5E DD 0344 1721 PUSHL SP 3; statistics block. Push address 

9346 \is¢ 3 on the stack for a call. 

O1A3"CF DF 0346 172 PUSHAL DIREC_BUFFER : Send address of a buffer for 
034A 1724 ; RT-11 directory segments. 

O4C'CF DF O34A 1725 PUSHAL FILE DESCRIP ; Send descriptor of file. 

3 «6FB baef 1726 CALLS #3,RTFSOPENFILE ; Look up the file. 
10 50 «=€8 0353 1727 BLBS RO,READ FI _,2_ Branch on successful lookup. 
0356 1728 MSG <-E-Unable to locate file> 
FEFA 30 0356 BSBW BOOSF ACMSG 
55 20 45 2D 0359 -ASCIZ \-E-Unable to locate file\ 
63 6F 6C 20 0365 
00 0371 
0372 
04 $378 1729 RET 3; And return. 
037 1739 
0373 1731; : ; 
0373 1736 ; Now read the file into manery. a block at a time. Store the number of 
0373 1733 ; blocks left to read in R3. The statistics block filled by RTFSOPENFILE 
0373 1734 ; contains the following: 
0373 1735; 
Ore 1736 3 err weer ee mec e ere ence + 
0373 1737 ; i starting LBN of file ; 
0373 1739 ; t number of blocks in file } 
0373 1740 5 Hemme www wwoeeeowesesoesont+ 
b358 1741 ; 
037 17t6 2 
0373 1743 READ_FILE: ; Read in the file. . 

04 AE DO 0373 1744 MOVL 4(SP) ,R3 ; Get number of blocks in file. 
0024'CF D0 0377 1745 MOVL § GOODMEM BASE,R4 : Get base of good memory. 
0048'CF D1 O37C 1746 CMPL START ADDRESS. RG ; Is the start address in good 

28 =«61F «0381 1747 BLSSU 0$ 3; memory? Branch if not. 
0048°CF D1 0383 1748 CMPL START ADDRESS,=- : Is the start address below 
C000 £4 0387 1749 BOOTSS_OFFSET(R4) 3; the start of BOOTS8 code? 


-——_—-------------- 
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| BOOTSS - Bootstrap command processor LF as ad bs 9 $3: 35:3) od Resce v04-00 Page 42 
es LOAD_FILE = Load file into memory 4-SEP=1984 23:02:30 (CBOOTS.SRCJBOOT58S.MAR; 1 (18) 
14 JE 038C 1750 BGEQU 108% 3; No. See if it's past BO0T58. 
55 53 09 7s O38— 1751 ASHL i R3,R5 ; Get number of bytes in file. 
55 O0048'CF CO 8 9 73g ADDL2 START ADDRESS,RS ; Get final load address + 1. 
0000C000 £4 $2 D1 97 17 PL RS BOOT58_OFFSET(R4) ; Breaking into B00T58? 
C 1B 039€ 1754 BLEQU § 30$ ; No. Go load the code. 
09 «11 baa 172? BRB 20$ : Yes. Report no fit error. 
Q3A2 1757 108: ; See if loading past 800T58. 
O048'CF D1 QO3A2 1758 CMPL START_ADDRESS,- ; Is the start address past 
0028" CF 03A6 1759 FIRST-FREE_BYTE ; BOOTS8's memory usage’ 
a baA2 1760 BGEQU 30% :; Yes. Branch to load code. 
O38 1706 20$: : : Invalid start address. 
QO3AB 176 MSG ma rg gf in use, choose a different address> 
FEAS 30 O3AB BSBW BOOSFACMS 
6E 69 20 79 72 6F 6D 65 4D 60 45 2D O3AE -ASCIZ \-E-Memory in use, choose a different address\ 
65 73 6F 6F 68 63 20 2C 65 73 75 20 O3BA 
74 6E 65 72 65 66 66 69 64 20 61 20 036 
00 73 73 65 72 64 64 61 20 Bape 
04 0308 1764 RET ; And return. 
O30C 1765 
O3DC 1766 30$: ; Load the program. ; 
O048'CF DD O3DC 1767 PUSHL START_ADDRESS ; Address to receive file. 
04 A DD O3EO 1768 PUSHL 4(SP) ; LBN to read. 
DD O3€3 1769 PUSHL #2 ; Number of arguments. 
O3E5 1770 
Q3€5 1771 READ_BLOCK: ; Read one block. 
OOOO'CF 6E& FA OQ3E5 1772 CALLG (SP),FILS$READ_LBN ; Read one biock. 
18 50 E€8 O3EA 1773 BLBS RO,NEXT_BLOCK ; Branch on successful read. 
O3ED 1774 MSG <-E-Cannot read file> 
FE63 30 O3ED BSBW BOOSF ACMSG : 
65 72 20 74 6F 6E 6E 61 43 2D 45 2D 03F0 eASCIZ \-E-Cannot read file\ 
00 65 6C 69 66 20 64 61 Bane 
04 0404 1775 RET ; Return with error status. 
0405 1776 
0405 1777 NEXT_BLOCK: : Is there another block to go? 
0153 F5 0405 1778 SOBGTR R3,10$ : Branch forward if more blocks. 
04 0408 1779 ET ; Otherwise, return with status. 
0409 1780 
0409 1781 10$: 
04 AE D6 0409 17ee INCL 4(SP) : Increment LBN to read by 1. 
08 AE 00000200 8F C0 8 1? ADDL #*X200,8(SP) ; Increase memory address by one 
3 page. 
CF 11 0414 1785 BRB READ _BLOCK : Read another block. 
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/ BOOTS = Boo ap command processor 15-SEP-1984 23:38:51 VAX/VMS Macro v04-v0 Page 43 
_v04-000 SETS Abb - Sets’ a START address raters 33:35:53 teoots sre 530yS8 har: 1 . (19) 
| -SBTTL SET_STARTADDR = Sets a START address 

| *+¢ 

| SET_STARTADDR 


; Functional description: 


Loads the start address specified in a LOAD or START command 


| 

| 

| into own storage. 

| Inputs: 

| AP points to the TPARSE parameter block, containing: 
TPASL_NUMBER = the starting address 

; Outputs: 

R1-R11 are preserved. 

; Implicit outputs: 

START_ADDRESS = the start address value 


.ENTRY SET_STARTADDR,- 
“M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
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MOVL TPASL_NUMBER (AP) ,- ; Move the specified address 
START_ADDRESS : into own storage. 
sf : Rovew. #SS$_NORMAL ,RO ; Return success status ccde. 
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- Bootstrap C 
START_PROGRAM = Start at start address 4-SEP-19 BOOTS.SRC JBOOT58.MAR; 1 (20) 
: ! 1 -SBTTL START_PROGRAM = Start at start address 
4 1 g 3+ J 
' : : ; Functional description: 
4 1 § : Restores saved or user-modified registers from the stack. Then 
4 1 5 transfers control to the address specified in this START command 
: : 3 ; or in the Last LOAD command. 
8 : y z: Implicit inputs: 
Be 1 ¢ 3 REGISTER_TABLE = address of saved RO-SP 
4 1833 ; START_ADBRESS = holds the start address 
04 See ; 
04 1835 ;-- 
04 1338 
0422 1837 START_PROGRAM: 3 , 
SE O0040°CF 00 943 1838 MOVL REGISTER_TABLE,SP ; Call the register table the 
04 1839 ; stack top once again. 
3FFF BF «BA 0427 1840 POPR #*M<RO,R1,R2,R3,R4,R5,- ; Restore registers RO-FP. 
0428 1841 R6,R7,RB,RI,R10.R11,- 
0428 ate AP ,FP> 
SE B8€ D0 9428 184 MOVL (SP)+,SP ; Restore saved stack top. 
O048'DF 17 OQ42E 1844 JMP @START ADDRESS : Transfer control to start 
0432 1845 3; address. 
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T = Bootstrap command processor 15-SEP-1984 23:38: AX/VMS Macro v04-00 Pa 45 
reetid SET_BYTE set byte Gisplay mode 2rSEFo 1882 33:58:34 fBoors. sre BOOT58.MAR;1 ” (21) 
‘ } a? -SBTTL SET_BYTE = Set byte display mode 
4 1 Pr i++ 
r ! 29 ; Functional description: 
2 ! 26 : Sets display and deposit length mode to byte. 
oe ! 2 : Implicit inputs: 
Be : 2$ : COMMAND_FLAGS = holds command interpretation flags 
| 043 1886 : Implicit outputs: 
| 0432 1860 : CMD _M_BYTE = set in COMMAND_FLAGS 
04 1861 ; 
Bee 1306 37° 
04 186 
OFFC bes 1864 eENTRY SET_BYTE,- 
434 1865 “M<R2,R35,R4,R5,R6,R7,RB,RI,R10,R11> 
0434 1866 
0434 1867 
CA 0434 1868 BICL #<CMD_M_LONG!=- ; Clear lLongqword mode. 
0435 1869 MO_M WORD>,- ; Clear word mode. 
OO2C*CF 00001800 8F 0435 1870 COMMAND FLAGS 
00002000 8F C8 043D 1871 BISL #CMD_M_BYTE,- ; Set to word mode. 
C'CF 0443 1376 COMMAND FLAGS 
3C 0446 187 MOVZWL #SS$_NORMAL ,RO ; Return success status code. 
04 0449 1874 RET 


---- 


F 16 

, BOOTS - Bootstrap command processor i -SEP-1984 AX/VMS Macro V04-00 Page 
v04-000 SET_WORD set word Sisplay mode “SEP-19 382 33: 03: 30 BOOTS. SRC JBOOT58.MAR; 1 3 ) 
| F 
| 44A 187 -SBTTL SET_WORD = Set word display mode 
| ata 1872 ; te 
464A 1878 ;++ 
44A 1879 ; Functional description: 
44A 1380 3 
er +t 5 Sets display and deposit length mode to word. 
44A 1888 : Implicit inputs: 

044A 1884 ; 

044A 1885 ; COMMAND_FLAGS = holds command interpretation flags 

044A 1886 ; 
| 044A 1887 ; Implicit outputs: 
044A 1888 ; 

044A 1889 ; CMD_M_WORD = set im COMMAND_FLAGS 

044A 1890 ; 

044A 1891 ;-- 

044A 1336 

OFFC O44A 189 ENTRY SET WORD,- 

044C 1894 AMm<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 

044C 1895 

044C 1896 

CA 044C 1897 BICL ay S M LONG: = :; Clear longword mode. 
044D 1898 M E> ; Clear byte mode. 
002C'CF 00002800 8F 044D 1899 CORAARE FLAGS 
00001000 8F C8 0455 1900 BISL #CMD_M_QORD,- 3; Set to word mode. 
002C'CF 0458 1901 COMMAND FLAGS 
50 01 3C O45€ 1902 mOVZUL #Sss “NORMAL. RO ; Return success status code. 
04 0461 1903 RET 


ee ae aaa ee er Ee ee 


| G 16 
| BOOTSS = Bootstrap command proces 15-SEP-1984 7:38:51 VAX/VMS Macro v04-00 Page 47 
| V04-000 SET_LONG ~ set longuord display mode 4- Pao 33:59:30 BOOTS.SRC B00'8. MAR;1 ° (23) 
| re 3 5 -SBTTL SET_LONG = Set longword display mode 
| 285 49 a functional descrip 
3; Functional descr on: 
| 46 1909 ; 7 : 2 
rf 1319 : Cancels word mode for displays and deposits. 
| 46g 1918 ; Implicit inputs: 
46 1914 : COMMAND_FLAGS = holds command interpretation flags 
Og 1316 : Implicit outputs: 
462 1917; 
0462 1918 ; CMD_M_WORD - cleared in COMMAND_FLAGS 
046 1919 ; 
0462 1920 ;-- 
0462 1921 
OFFC 0462 19 ¢ ENTRY SET LONG,- “ 
Ree? i Z *M<R2,R3,R4,R5,R6,R7,R8,R9I,R1I0,R11> : 
CA 0464 1925 BICL #<CMD_M WORD: = 3; Clear word mode. 
0465 1926 MD_M-BYTE>, ; Clear byte mode. 
OO2C'CF 00003000 8F 0465 1927 CORAARD FLAGS 
00090800 8F C8 046D 1928 BISL ach mM _CONG,- ‘ : Set long mode. 
C'CF 0473 1929 MMAND FLAGS 
3C 0476 1930 mOVZUL iss, NORMAL RO : Return success status code. 
04 0479 1931 RET , 


OFFC 


CA 
OO2C*CF 00000600 8F 
00000100 8F C8 
002C'CF 
3C 
04 
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e tonnene prerees "ArSEb=1382 33:08:30 Favors see ieo0yse.maR; 1 


-SBTTL SET PHYSICAL = Set physical address mode 


- Set physical “address mode 4-SEP-19 


+ 
Functional description: 
Implicit inputs: 


Implicit outputs: 


CMD-M_GENERAL 


-ENTRY SET Se het ts 
M<R2,R 


BICL nh M_GENERAL ! = 
CMD_M”-IRTERNAL>,- 


C S 
BISL ac PHYSICAL ,~ 
MOVZUL #S8$, NORMAL RO 


a a et ed ad ad dd 
WOOWOODOOOVOOVOOVOVOOOOWOOOOOOOOOOOOO 
PDUs Be BB BB EE EWI 
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AX/VMS Macro V04-00 


Sets address interpretation mode to physical. 


COMMAND_FLAGS = holds command interpretation flags 


CMD_M PHYSICAL = set in COMMAND FLAGS 
cleared in COMMAND_FLAGS 
CMD-M_INTERNAL = cleared in COMMAND_FLAGS 


R4,R5,R6,R7,R8,R9,R10,R11> 


; Clear general, internal 
address modes. 


Set physical address mode. 


; Return success status code. 


Pa 48 
9° 2a) 


Wide 


- Bo 
SET. 
OFFC 
CA 
OO2C'CF 00000500 8F 
00000200 8F C8 
O002C'CF 
50 01 3C 
04 


mee 
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BPP EPP PEEP EEEEEE ZH 
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Hi command processor 
AL = Set general register mode 4-SEP-19 
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-SBTTL SET GENERAL = Set general register mode 


++ 
Functional description: 


Sets address interpretation mode to GENERAL. 


Implicit inputs: 

COMMAND _FLAGS = holds command interpretation flags 
Implicit outputs: 

CMD_M_GENERAL = set in COMMAND FLAGS 


CMD-M_PHYSICAL 


cleared in COMMAND_FLAGS 


CMD-M_INTERNAL = cleared in COMMAND_FLAGS 


-ENTRY SET GENERAL ,~ 


M<R2,R3,R4,R5,R6;R7,R8,R9,R10,R11> 


BICL #<CMD_M_ PHYSICAL! = 3; Clear physical, internal 
MD_M” IRTERNAL>,= 3; address modes. 
OMMAND_FLA 

BISL #CMD_M_GENERAL,- ; Set GENERAL address mode. 
OMMAND_FLAGS 

tL #SS$_NORMAL ,RO ; Return success status code. 


s 
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rap comm 


OFFC 


0 
CA Q4AC 
002C "CF 8F 
8F 6B 
CF 
01 3C O4BE 
04 04C1 


o 

FRERRRRS 

>>>>>r>r>r 

>>>>r>>> 
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-SBTTL SET_INTERNAL = Set internal processor register mode 


+ 
Functional description: 


Sets address interpretation mode to INTERNAL. 


Implicit inputs: 


COMMAND _FLAGS = holds command interpretation flags 


Implicit outputs: 


CMO_M_INTERNAL = set in COMMAND FLAGS 


CMD-M_PHYSICAL 
CMD-M_GENERAL 


cleared in COMMAND_FLAGS 
cleared in COMMAND_FLAGS 


R4,R5,R6,R7,R8,R9,R1IC,R11> 


- ENTRY xer eth hag 


BICL #<CMD_M_ PHYSICAL! = ; Clear physical, general 
CMD_M-GENERAL>,=- ; address modes. 
COMMAND _FLAGS 
BISL othe A INTERNAL. 3; Set INTERNAL address mode. 
ha #SS$_NORMAL ,RO ; Return success status code. 
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~SBTTL EXADEP_ADDR = Pick up address argument 


[=] 
™ 


PDD D_XED SAAS & Bs Se EE EWN nononornonor 


SOONAUE WIR OS ODNAU EWR 9 OD NAW EWN 9 OD NAUSWIN @ O OONAUE WN OOONOU 


++ 
Functional description: 


Stores the address argument of an EXAMINE or DEPOSIT command 
nN own storage. 


Inputs: 
AP points to the TPARSE parameter block, containing: 
TPASL_NUMBER - the numeric address specified 
Implicit inputs: 


COMMAND_FLAGS = tells whether the value in CURRENT_ADDRESS 
is to be interpreted as: 


CMD_M_PHYSICAL = a physical address 
CMD_M_GENERAL = a general register number 
CMD_M_INTERNAL = an internal processor 
register number 
Outputs: 
Ri-R11 are preserved. 
Implicit outputs: ' 


CURRENT_ADDRESS = holds address value 


ENTRY EXADEP_ADDR,- 
“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 


COOOCOCOCOCCCOCCOCOCOOCOOCOCOSOOOCOOOCOOCOCOOOOCOOCOOCOOOOCOOOOOOOOOOO 6UCUNM 
Fe ae ek ae ek ek ak tk ee te tk et te a tk ak ae ae ak ek ek ek ek ee ak ek ek ee ek ek, ek eh ek ek ek ek ek ek ek et et 
DTIUVIGISOGAAAAAOAOOOAOAAAAAAAAAAAAAAAAVGAOAOAOOOAOAGOOOOO Per 
HH PLMOM SG BODE & LAIN ININININIMPYNIMINIPINININININININIPIPIPIPIPIPIPIPIPIPIPIPIPIPIFYININY OF 
SOCCCCoCOCOCOSCOCOCOSCOCO COCO OOOOOCOOOOOOOOOoOOO: 


PIPIPINPINININIPYAIMYAIPNININIPYINININIPYAIPIPININININININININININININININININININININININININININININININININININY 


50 1C AC 00 MOVL TPASL_NUMBER (AP) ,RO ; Get numeric argument. 
08 €0 BBS #CMD_0_PHYSICAL,= 3 If physical address, no 
002C*CF COMMAND_FLAGS,- 3 modifications necessary. 
22 SAVE_ADBRESS 
OA €0 BBS #CMD_V_INTERNAL ,= : If internal processor | 
002C "CF 06 COMMAND_FLAGS,- 3 register, go interpret it. 
1 06 PROC_REGISTER 
8s 
4 070 ; This is a general veateter sumber. If a valid specification, change 
Bees oF 3 the address to an address in the general register table. 
4D4 207 
50 DS 0404 207 TSTL RO ; Register must be positive. 
¢/ 19 04D 07 BLSS BAD_REGISTER ; Otherwise report error. 
OF 0 01 04D 07 CMPL RO, FSAVED PC ; Must also be between RO-PC. 
1¢ 14 0408 fi BGTR BAD_REGISTER : If not, report error. 
OO30°CF 0040"DF40 DE 04DD ? MOVAL @REGISTER TABLECROJ,- ; Store address of register 
4E5 207 CURRENT_ADDRESS ; storage location. 
OE 11 O4E€5 208 BRB ADDRESS_ SAVED ; Return. 


L 16 
R <P Rek up address argument —4-SEP-198¢ 93:02:30 Lauovsssmeioaorse.nan;1 29° (39, 


This is an internal processor register. If a valid specification, 
get the processor register’s value and store it in own storage. 
ave the own storage address in CURRENT_ADDRESS. 


PROC_REGISTER: ; Read a processor register. 
50 3=O5 TSTL ; Register must be positive. 
3 19 BLSS BAD_REGISTER ; Otherwise report error. 
- eae D1 CMPL RO, #°X3F ; Must also be within a certain 
09 814 BGTR BAD_REGISTER 3; range. Branch if not. 


: Address is in RO. Save it. 


tt tS | MQODCOOOCOOOCOGOOOOCCOOSO 


—BDOODOOOOOCOO 0000000000090 0000000000 
OOO NAU EWN ( O OONAUE WH SO OONOULSWwN— VU 


POPQIPIPIPYIAIPYAINININIPIPUAIPYINAINININININININININININININNY 


SAVE _ADDRESS: 3; Store physical address. 
OO30'CF 50 00 MOVL RO, CURRENT_ADDRESS ; Store address in own storage. 
ADDRESS_SAVED: ; Return. 
50 01 3 Nam #SS$_NORMAL ,RO ; Return success status code. 
: Bad address specification. 
BAD_REGISTER: 
MSG <-E-No such register> 
FD57 30 BSBW BOOSF ACMSG 
72 20 68 63 75 73 20 6F 4E 2D 45 2D -ASCIZ \-E-No such register\ 
00 72 65 74 73 69 67 65 ; 
50 04 05 2111 CLRL RO ; Return error status 
04 0512 2112 RET 
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- Repeat same address argu 4-SEP-1984 BOOTS. SRC JBOOT5S.MAR; 1 (28) 
-SBTTL USE_LAST_ADDR = Repeat same address argument 


++ 
Functional description: 


bt 


Stores the last address ysed 


nN a previous EXAMINE or DEPOSIT 
command in the address fiel f 


; the current command. 
Inputs: 

AP points to the TPARSE parameter block. 
Implicit inputs: 


LAST_ADDRESS - the address field of the last EXAMINE or 
DEPOSIT command. 


Outputs: 
Ri-R11 are preserved. 
Implicit outputs: 


The TPASL_NUMBER field of the TPARSE parameter block holds the 
address value to be used. 


MD OND NUIWUWINWAINNINIWNINIAINWNIWINWNI ANNAN AWW st 


SOOOCCOCOCOCSCOCOoCoooooooQoCooQooooooooooooooooo 
LUPUS PUPS 
ROPRINPONONY ee 

POPIPOPYIPYNPINININININININIPINIPYINIPINPYINPYINIPIPIPYIPIPINPIPINIPIPYIPIPUPININPIPYININYD 


MO OONAUES WN (OOO NAUE WN OC OONAMUES WN" OOONOUsS 


OFFC eENTRY USE_LAST_ADDR,=- 

AM<R2,R3,R4,R5,R6,R7,.RB,R9,R10,R11> 

E1 BBC #CMD_V_GENERAL ,- ; Branch if not general register 
COMMAND FLAGS, 10$ : 

DE MOVAL REGISTER_TABLE,R2 ; Get base addr of register table 

C2 SUBL  R2, LAST_ADDRESS : Sub. base to give reg # 

dO 10$: MOVL LAST_ADBRESS,- ; Move the Last address used 
TPASC_NUMBER (AP) ; into the parameter block. 

af | hg #SS$_NORMAL ,RO ; Return success status code. 


aR ee ici 0 ta SE aS ARAMA YL Se enh BO a Ese 


current length mode is WORD 
Outputs: 


3 
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v04-000 USE _N XT_ADDR - Increment address argume 4-SEP-1984 $3:59;30 {aoors. sre BOOT58.MAR; 1 . (39) 

2 : -SBTTL USE_NEXT_ADDR = Increment address argument 

5eF ++ 

2 ; Functional description: 

SeF For physical address mode, adds the current size mode (byte, word 

52F or senguare, i.e., 1, 2 or 4) to the last address examined or 

S2F deposited. For registers, adds 1 to the register number stored 

é : in LAST_ADDRESS. 

52F 

tf Inputs: 

bet AP points to the TPARSE parameter block. 

: . Implicit inputs: 

5 LAST ADDRESS - argument of last EXAMINE or DEPOSIT command 

; CMD_F_WORD - if set in COMMAND_FLAGS, indicates that the 

5 

2 


CDOSSOOOOCOSCOCOCCOCOSCOCOCOOOCOwY DBOOOCOSCOSCOSOOCOOGD OOOO OOOC OOOO OSOOOCOOOoOOoOO SOMre 
aod and and cad ead nd a ca cn ed cn ee cnt cm ca a ee a ene ec a eth an en cn ae ce ce a ee aed ee a ee ce ee ee ed ee ee ee ee ee ee cs 
sO 0 0 09 09 09 09 09 09 09 09 09 09 SI NIN NINN NNN NP AA AAAAAAAOMIMNIIIIN 
=O ODNAU SWAN OOO NOUS WN (OOO NOUE WN -OOONOUS 
Oo Oe Oe Oe Oe Oe Os Be Oe Se Oe Oe Oe Oe Oe Oe Oe Oe BHO Be Oe Oe Se Se Be Oe Se es 


PRIPIPOPIPIPDPINYPIPYPIMNINIPYNIPINIPYPIPYDIPINYIPINIPINIDINPIPIPORSPIPIPYINIPINPIPININPININININIPNINPINININPINIPVNININY 


i 
F 
F 
F 
st 
F 
SOF 
asf Ri-R11 are preserved. 
gf Implicit outputs: 
52F TPASL_NUMBER field of the TPARSE parameter block holds the 
52F computed address. 
52F 
52F -- 
52F 
OFFC 3¢f .ENTRY USE_NEXT_ADDR,- 
331 AM<R2,R37R4,R5,R6-R7,RB,R9,R10,R11> | 
51 O0034°CF DO 9531 MOVL LAST_ADDRESS,R1 ; Get Last address used. 
08 £1 0536 BBC #CMD-V_PHYSICAL,- : If a register, go check | 
002C'CF 538 COMMAND _FLAGS,=- : for boundary conditions. 
17 538 ¢ CHECK_REG_MAX 
51 04 CO 053¢ 9 ADDL #4,R : Assume Longword mode. 
0B €0 053F 94 BBS #CMD_V_LONG,= ; If longword mode is set, 
002c'CF 541 2195 COMMAND FLAGS, : just branch out to store the | 
22 544 96 AVE _NEQ_ADD 3 new address in the block. 
3s}... Ge cé 545 97 SUBL #2,R 3; Adjust to word length. 
oc éUCC 548 98 BBS #CMD_V_WORD,- : If word mode is set, 
002C°CF 54A 99 COMMAND FLAGS,- ; just branch out to store the 
19 54D 00 SAVE _NE@_ADDR ; new address in the block. 
51 O01 C2 O54E 01 SUBL #1, ; Adjust to byte mode. 
14 ~=«11 23 0 BRB SAVE _NEW_ADDR ; And go store it. 
333 64 CHECK _REG_ MAX: ; Check for maximum register #. 
51 01 CO 055 05 ABDL #1 3; Increment register number. 
52. OF DO 0556 86 MOVL #sA ED_PC, ; Assume this is a general reg. 
9 EG 0559 8 BBS #CMD_V_ GENERAL ,- : If general register, branch 
002C*CF 558 8 COMMAND _FLAGS,- ; to compare new value with 
3 55E 09 COMPARE REG_N 3 maximum register number. 
52 F pO O55F 10 MOVL #MAX_PROC_REG,R2 : Internal register. Get maximum 


BOOTSB = Bootst 
oO 000 USENEXT ADDR. 
1 
Ca a i 
és 8h 18 
i 
1c ac 51 (DO eeep 554 
Be been 5519 
sec 5520 
sec 5551 
sec 5552 
FCES 30 036C 
$) 20 G6 $9 GC G1 76 GE 49 0 45 20 O56F 
(69 65 65 70 73 20 75 73 65 72 64 b4 0578 
00 GE &F 69 7% 61 68 69 66 0587 
50 D4 0390 2228 
04 0892 595% 


. 
event aa address argume eaiioets $3: 08: i Yeoors sre Boot $-RAR: 1 


COMPARE _REG_NUM: 


CMP 
BGTR 


SAVE_NEW_ADDR: 
AOVL 


RET 
BAD _ADDRESS: 


Page 


; value. 


Check for number too arge. 
New number beyond maximum? 


BAB_ADDRESS Yes. Report error. 
; Store the new address in the 
R1, TPASL_NUMBER (AP) ; TPARSE parameter block. 


; Return to caller. 


BOOS ACA. address specification> 
\-E-Invalid address specification\ 


RO ; Return error s®atus 


3 


ee 


B00 - 
v04-000 US 


rep command processor P-1 
10US 


so 15-SEP-19 
= decrement address argue 4=-SEP-19 
-SBTTL USE_PREVIOUS -d 


Be 33:02:30 [Boors:smeiecovss.nar;1 = 8" (36 


ecrement address arguement 


++ 
Functional description: 
For PHYSICAL address mode, decrement the LAST_ADDRESS 
according to the size mode. If in register mode, decrement 
the register number by 1. 
Inputs: 
AP points to the TPARSE parameter block. 


Implicit inputs: 


POIPOIPIPOIPIDIPIPIPIAIPAINIPIPIPIPIPIPYPIMYINIPIPINPINPYNIPUNIPUNINY 


ee eal ab sh ab Ab ab Ab ab Ab Ab Ab Ab Ab ah Ab Ab db hb dh db dh dh oh eh ch ach dc edb dh od hh RAD 


t 
R 
0 
4 
se 
8 
B34 Ss 
8 4] LAST ADDRESS - last address EXAMINEd or DISPLAYed. 
8 4 COMMAND_FLAS - determines address and size modes. 
8 44 ; Outputs: 
45 
0 46 None. 
0593 744 
8 ; $8 Implicit outputs: 
3 ; 230 TPAS_NUMBER holds the new address. 
0593 359 -- 
0593 225 
OFFC 0593 2254 eENTRY USE_PREVIOUS,=- 
8 2 $22 “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
51 0034'CF DO 0595 see MOVL LAST_ADDRESS,R1 ; Get Last address used 
51 01 C2 OQO59A 58 SUBL #1, 3; Assume register mode 
08 €1 8 D 2259 BBC #CMD_V_PHYSICAL,=- ; Branch if register mode 
002C ‘CF F 260 COMMAND _FLAGS,=- : 
15 0 ; 261 TEST_MIN_ADDR : 
in Bees ae $06 SUBL P ; Assume longword size. 
0B £0 OQ5A6 226 BBS #CMD_V_LONG,- : Branch if longword size 
002C "CF O5A8 2264 COMMAND FLAGS,- 3 
0c Bene 65 Ha MIR_ADDR : 
51 02 cO O5AC 66 ADOL #2, ; Adjust to word size 
OC £0 OSAF 67 BBS #CMD_V_WORD ; Branch if word size 
002c "CF 5B1 2268 COMMAND FLAGS,- ; 
05 384 $9 Test MIN_ADDR i 
51 1 €O 203 oY ADDL #1,RT ; Adjust to byte size 
O38 i TEST_MIN ADDR: 
28 fe : The new address in R1 must be greater than zero for all cases. 
51 DS 38 a: : TSTL ; Is R1<0 
98 19 BA 7 BLSS BAD_ADDR ; Branch if yes 
1C AC 1 0 058C 8 MOVL R1,TPASL ree” al ; Save new address 
50 =—01 Bc 209 7 MOVZWL #SS$_NORMAL ,R ; Return success status 
4 O5C 0 RET 
5¢4 1 
5(4 2 BAD_ADDR: 


0) 


ae 


| FCB8C =. 30 
41 20 44 49 4¢ 41 56 of 49 gp 45 30 
49 43 45 50 53 20 53 53 45 : 44 44 
| 00 4E GF 49 54 41 43 49 46 
50 D4 

04 


- decrement eddress argue 4=-SEP-19 


2283 MSG 
BSBW BOOSF ACMSG 


ooooocece Ar 


4 CLRL RO 
5 RET 


op commend processo lie 19360-1288 r 33: 38: 3} 


eASCIZ \-E-INVALID ADDRESS SPECIFICATION\ 


; Return error status 


AX/VMS neg ro V04-00 
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<-E-INVALID ADDRESS SPECIFICATION> 


158 - Boo 


e+ ane pars processor ae 15-SEP-1984 $3: 38:3) aces Macro v04-00 Page 8, 


- Process ‘a’ 4-SEP-1984 BOOTS.SRCJBOOT58.MAR; 1 
-SBTTL USE_LAST_VALUE = Process ‘‘a"’ 


oy 
<o 
Pa o 


p++ 
; Functional description: 


Retrieve the last value displayed or deposited in the Last 
EXAMINE or DEPOSIT command. Sets address mode to PHYSICAL. 


Inputs: 

AP points to the TPARSE parameter block. 
Outputs: 

Ri-R11 are preserved. 
Implicit outputs: 


TPASL_NUMBER field of the TPARSE parameter block holds the 
last value displayed or deposited. 


OFFC eENTRY USE_LAST_VALUE,- 
“M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
OO38'CF DO MOVL LAST_VALUE,- ; Put last value displayed in 
1C AC TPASC_NUMBER(AP) : the parameter block. 
FE82 CF O00 FB CALLS #0,SET_PHYSICAL ; Set address mode physical 
50 3601 ei ta #S$$_NORMAL ,RO ; Return success status code. 
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~SBTTL EXAMINE_LOC = Display a location 


++ 
Functional description: 


Displays the contents of a location on the terminal. 


Implicit inputs: 


CURRENT 
W_FAO_ 


Outputs: 


o0T 


ADDRESS = the address to be examined 
LEN = address of a word to receive the length of 
the output str 0 


ing from FA 
LONG_PHY_FORMAT = address of an FA 


formatting string that 


displays a hex longword 
OUTPUT_FORMAT = a writable buffer to receive an output format 
built on the fly in this routine. 


R2-R11 are preserved. 


Implicit outputs: 


LAST_ADDRESS 
LAST_VALUE 
EXAMINE _LOC: 
PUSHAB OUTPUT_FORMAT 
MOVC3 #FORMAT_LENGTH,- 
LONG PHY_FORMAT,- 
OUTPOT_FORMAT 
MOVAB OUTPUTFORMAT,RO 
BBC #CMD_V7WORD,- 
COMMAND FLAGS 5$ 
MOVL  #*A/!4xQ/,13(RO) 
5$: BBC CMD V_BYTE,- 
COMMAND FLAGS 10$ 
MOVL #*A/!4xXB/,13(RO) 
—— #CMD_V_GENERAL,- 
COMMAND FLAGS, 20$ 
MOVB #*A/G/,%(RO) 
ssi BBC #CMD_V_INTERNA 
COMMAND FLAGS. 63 
MOVB = #*A/1/, 8 (RO) 
30$: 
V2BL #FORMAT_LENGTH,=(SP) 
PUSHAB OUTPUT 
MOVZBL #OUTBUF_LENGTH,-(SP) 


- receives the address examined; if /G, value 


stored is the register #, not the address 
within the register table. 


- receives the value displayed. 


Push format buffer address 
on the stack. 

Move default format string 
into format buffer. 


Get address of format string. 
If not displaying a word, 
branch. 

Replace value field format. 
If not displaying a byte, 
Branch 

Replace value field format. 


If not general register 
mode, branch. 
Replace ‘P’’ with ‘G’’. 


If not internal processor 
register mode, branch. 
Replace 'P’ with "I. 


Put descriptors on stack. 
Push format length. 

Push buffer address on stack. 
Push length too. 


H 1 
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50 SE 00 ot? 6 MOVL SP,RO ; Save address of descriptors. 
64C 78 ; 
64C 8 ; Push FAO arguments on stack preparatory to a CALL. In the CALL, 
64C 0 ; specify an extra 4 arguments so that the return from the CALL cleans 
rots ; up the descriptors on the stack. 
64 : 
52 OO30°CF 00 064 4 MOVL CURRENT_ADDRESS,R2 ; Get address to examine. 
OA €1 065 5 BBC #CMD_V_INTERNAL,= ; If not a processor register, 
002C'CF 65 $ COMMAND_FLAGS,- 3 branch. 
696 EXTRACT_VALUE 
53 DB 06 8 MFPR R2,R ; Read the processor register. 
03 11 065A 2389 BRB PUSH_VALUE : And proceed. 
ae 
065C 83 : Just a normal physical address in R2 (either specified by user or 
065C 93 ; derived for a general register). 
ae 
065C $09 EXTRACT_VALUE: ; Get value to display from 
53 62 00 8636 44 MOVL (R2),R3 3 the physical address. 
O65F 2399 PUSH_VALUE: ; Put value on stack. 
53 DD O65F 2400 PUSHL R3 :; Display value. 
0661 3402 
0661 208 : For a general register, display the register offset, not the address 
0661 2404 ; within the saved reg‘ster table. 
bee) 5408 
09 =s«é€ 407 BBC #CMD_V_GENERAL,- : If not a general register, 
eeaat 4 rt Senge FLAGS,- 3 branch. 
54 52 O040'CF (C3 410 SUBL3 REGISTER_TABLE,R2,R4 : Compute offset to register. 
54 04 C6 411 DIVL #4 RG : Derive cepieter number. 
54 ODD ai6 PUSHL R 3; Put register number on stack. 
02 11 et BRB F INISH_STACK ; And proceed. 
415 PUSH_ADDRESS: ; Push a plain physical address. 
52 oD $18 PUSHL R2 3; Display address of value. 
$18 FINISH_STACK: ; Complete stack setup. 
80 7F 41 PUSHAQ (RO)+ 3; Send output buffer descriptor. 
O7E4'CF 3 420 PUSHAW W_FAO_OUT_LEN : Send location for out length. 
69 F 421 PUSHAQ (RO) 3; Send format string descriptor. 
0883'CF 9 FB : § ALLS #9,SYSS$FAO : Format the output string. 
424; 
425 ; Write the output string onto the console terminal by calling the 
& § 3: read with prompt routine with a null read buffer address. This prints 
r 3 3 the prompt string and returns. 
4 e 
50 O7E4'CF 3 4 9 MOVZWL WwW FAO_OUT_LEN,RO ; Get Length of output string. 
O7BC'CF40 994 4 CLRB OOTPUT_BUFFERRO} : Write a null at end of string. 
7E «867C 432 CLRO =(SP) 3; Don't ask for a read. 


ee cere SS SSS SSS 
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a 


} 


..% 
command processor 15- 


- Bootstra 5-SEP-1984 23:38:51 VAX/VMS Macro V04-00 Page 61 | 
EXAMINE. LOC Display a location resets 7 $3:58;30 BOOTS.SRCJBOOTSS.MAR; 1 . ($y 
ae SF O68F 2433 PUSHAB 9 TPUT_BUFFER 3; Push buffer address on stack. | 
0000' ove 3. «FB 2 : : CALLS »BOOSREADPROMPT + Output string. 
69 436 ; 
69 4 $ 3; Store ferrgat address in LAST eneeness so that NEXT and LAST wor 
69 4 8 3 proper’ y. For /G, only store the ron" ster number as LAST MADDRESS. 
2 t25 ; Also store the value displayed. Register setup now is as follows: 
69 441: Re - current address | 
69 rei 3 R - value displayed 
69 445 ; = general register number (if any) 
gh | | 
| 
E1 0698 rr BBC #CMD_V GENERAL .~ ; if not a general register, 
002C'CF 69A 244 COMMANG S.- 3; just store the address as is. | 
69D 2448 STOR 5 ABD bRES g3 
52 54 00 O69e 449 MOVL R4,R ; Get register number. | 
06A1 2451 STORE_ADDRESS: 
0034'CF 2g DO 06A1 126 MOVL R2,LAST_ADDRESS 3; Store address away. | 
OO38°CF 5§ nt) er 45 MOVL R3,LAST_VALUE : Save the value displayed. 
04 OQ6AB 2454 RET 3; Return to ges ier with: status 
O6AC 2455 3; code from FAO. | 


sm 


a 


J 1 | 
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-SBTTL DEPOSIT_VALUE = Pick up data value 


p++ 
3 Functional description: 


Loads the value to be deposited from a DEPOSIT command into 
own storage. 


Inputs: 
AP points to the TPARSE parameter block, containing: 
TPASL NUMBER - the value to be deposited. 


i=) 3s. DODOCOCSCOCOCO <r 
APAASASAOSSISPASSOASASASS MH 
>>>>r>rrr>rrrrrrrr?,r i 
> o PAAQOOOOMOMAIOMOOOOOoe <as 
RIPIPIPIPIPININIPININIMYPININIPIPIPINIPIPYPINPIPYDIMIPIPIPIPIPIPIPUPIPOAMYD 


PS a a 


A 
$9 
9} 
34 
64 
3? 
‘ 
‘ 
71 
18 
6AC 7 R2-R11 are preserved. 
6AC 74 
ey: Le Implicit outputs: 
O6AC 77 HOLD_DEPOSIT - holds value from DEPOSIT command. 
06AC 78 
06AC 79 3-- 
06AC H+ 
OFFC O6AC 1 eENTRY a VALUE ,=- 
AE Be M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
51 1¢ AC 3 D0 bens 84 MOVL TPASL_NUMBER(AP) ,R1 ; Get value to be deposited. 
Oc €1 068 85 BBC #CMD_0_WORD 3; Branch if not word mode 
03 002C'CF 068 86 COMMAND _ FLAGS, 10$ : 
51 51 3C¢ 0688 87 MOVZWL ey 3; Save a word. 
OD €1 0688 88 10$: BBC ech ; Branch if not byte mode 
03 002C'CF 06BD 2489 acm vB OT LAGS. 208 : 
51 51 QA 06C1 90 MOVZBL i oR ; Save a byte. 
0044'CF 51 DO 06C4 91 20$: MOVL HOLD_DEPOSIT 3; Save the value. 
50 01 a 434 3 ROVZUL Bsée NORMAL ,RO 3; Return success status code. 


| 
| 
| 
| 
| 
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= Store a value in memory 4-SEP-19 BOOTS. SRCJBOOT5S.MAR; 1 
~SBTTL DEPOSIT_DATA = Store a value in memory 


Poe 


PIPIPIPIPIDPININIPININIPIPIPIPINIPININPININIPIPININININIPINININININININININ »- 
QVPU PVP PU PV USUI EFS ££ ~~ 


WARIPIPONINPINININIMNIN 2 2 OOOO  MOOOOOOOCOCOCOOONOONO 


++ 
Functional description: 
Deposits a longword or a word of data into a specified location. 
Implicit inputs: 


CURRENT_ADDRESS = contains the destination address 
HOLD_DEPOSIT - contains the value to be deposited 


Outputs: 
Ri-R11 are preserved. 
Implicit outputs: 


LAST_ADDRESS - holds destination address 
LAST_VALUE - holds value deposited 


DEPOSIT_DATA: 
BBC 


PARE ARAAAAAAAAAAAAAASAOAISAOASIOASASASaS 


SSSSSSSSSSSSSS COCO SO COCO OOOO OOOO. Lapa 
MN HMAMMMMM DSO GAAAAAAANAANAAOAAAAAAAAAAAQAQAOO 1 
FeMmMPSnNWOOPrnwnovVVTVVTVTVTVT9VC°C"°0"0C0"_0"0_"0"_0"0"0"0"0"0"0"0 O47 


AF=OOONAUE WIN @ O OO NAUE WIN 0 OONAUE WN OOONOU 


OA €1 #CMD_V_INTERNAL ,- ; Branch if not using IPR's 
09 002C'CF COMMAND. FLAGS, 10$ ; 

0044'CF DA MTPR 0 SIT,- ; Deposit data in IPR 
0030'CF RRENT_ADDRESS ; 

.— eas BRB $ 3; Rejoin common code 
0044'CF 00 10$: MOVL HOLD_DEPOSIT,- ; Deposit the value into the 
0030'DF 6 @CURRENT_ ADDRESS : specified address. 
OO030'CF DO 06 20$: MOVL CURRENT_ADDRESS,- 3 Save destination address. 
0034'CF 6 LAST_ADDRESS 
0044'CF DO 06 MOVL HOLD_DEPOSIT,- ; Save value deposited. 
0038'CF 6 L JV E 
0 a nye #SS$_NORMAL ,RO 3; Return success status code. 


- 
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~SBTTL EXECUTE_FILE = Process command file 


++ 
; Functional description: 


Opens the specified file and reads the first block into a 
buffer. Sets a bit in the command flags longword to indicate 
that an indirect file is being processed. The bit is used to 
prevent indirect command file nesting. 


Implicit inputs: 


IND _CMDBUFFER = buffer in which to load a block of the file 
FILE_DESCRIP - string descriptor of the file 


CMD_M_INDIRECT = bit set im COMMAND_FLAGS if commands are 
oor being processed from an indirect 
comman e 


SUSU 


FPP 


WS OONOUSW 


PAAAPAOSOAOASOSSASASAAaS mu 


Outputs: 


SSSSSSSSSSSSRE 2. 


bas Pa fons Dona a na a ona Bona Bn tna ona fons Bona fa ton a na ta naa 


Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Ge Se Se Se Se Se Sete 


Salat eee wo or a a tt 


S 4b-dd-db- abd db db ab ab db ab Ab Ab db db db ah ah ah dh ah ab ah ah al 
NOME WN OS OONAULSWWN OVO ONAUS 


5 
5 
5 
5 
5 
: 
O6F5 CMD_M_INDIRECT = bit set in COMMAND_FLAGS to prevent command 
06F5 file nesting 
pore IND_CMDBUF_PTR - pointer to next byte in indirect command file 
uffer 
O6F5 IND_W_NEXT_LBN = (1 word) next LBN to read from command file 
O6F5 IND_W_BLKS_LEFT = (1 word) number of blocks left to read in 
O6F 5 command file 
O6F5 
O6F5 -- 
Bere 
6F5 64 EXECUTE_FILE: 
07 €1 O6F5 6 BBC #CMD_V_INDIRECT,- : If an indirect file is NOT 
30 002C'CF 6F7 6 COMMAND_FLAGS, 10$ ; being processed, proceed ok. 
6FB 6 MSG <-E-Nested command files are not permitted> 
FB5S 30 O6FB BSBW BOOSF ACMSG ; 
6F 63 20 64 65 74 73 65 GE 2D 45 2D O6FE e-ASCIZ \-E-Nested command files are not permitted\ 
20 73 65 6C 69 66 20 64 6E 61 6D 6D 070A 
6D 72 65 70 20 74 6F 6E 20 65 72 61 0716 
00 64 65 74 74 69 0788 
0077 ~=—311 4 : 268 BRW EXIT_NOW 3; Return 
72B 2570 10$: ; Accept command file 
7E 7C 0728 257 CLRQ -(SP) ; Clear space for a file 
5E DD 072d 257 PUSHL SP 3; statistics block. Push address 
72F 257 3; on the stack for a call. 
OIAS"CF DF O72F 2574 PUSHAL DIREC_BUFFER ; Send address of a buffer for 
7 575 ; RT-11 directory segments. 
OO4C°CF DF 07 278 PUSHAL Fite DESCRIP ; Send descriptor of file. 
0000' CF 93 fe 7 57 CALLS #3,RTFSOPENFILE : Look up the file. 
1€ 50 =#€ 73C «2578 BLBS RO,READ_CMD_BLOCK 3; On successful read, branch. 
73F 2579 MSG <-f-Unable fo locate file> 
8 1 0 O73F BSBW BOOSF ACMSG 
6F 74 20 65 6C 62 ¢ 6E 33 D 45 2D 0742 eASCIZ \-E-Unable to locate file\ 
65 6C 69 66 20 65 74 61 63 6F 6C ; ree 


roe 


| 


a 
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| 758 | 
45 11 4 : 9 BRB EXIT_NOW ; Return 
750 ; 
, 4 ; Now read the first block of the file into memory. Store 
75D 2585 ; the number of blocks Left to read, 
rep 5 § ; the next LBN to read, 
| ats : ; a pointer to the start of the buffer of command data 
75D § : in own storage for later reference by the routine that extracts 
ats 0 ; command records from the file blocks. 
fap $890 * 
BF 20 38 READ_CMD og 3 Read one block. 
04 6 pot) A3 8 Be SuBw athe dpm Lert : Store # blocks minus 1. 
O7A9'CF 43 01 al Ore 238 ADDW3 =#1,TSP), INB_W_NEXT_LBN ; Store second LBN in file. 
8 A3'CF 9E O76A 259 MOVAB IND_CMDBUFFER - ; Save a pointer to the 
| 7A3'CF O76E 3998 IND-CMDBUF PTR ; buffer. | 
OSAS'CF ODF be 599 PUSHAL IND CMDBUFFER 3; Address to receive the block. 
04 A DD 0775 2600 PUSHL  4(SP) 3; Number of LBN to read. | 
0000'CF 03 FB 0778 2601 CALLS Sool RLOnEAS LBN 3; Read 1 LBN. 
19 § E8 077D ote BLBS RO,NORMAL_RETURN 3: Branch on successful read. 
0780 260 MSG <-€-Cannot read file> 
H FADO 30 fh 4 BSBW BOOSF ACMSG ' 
65 72 20 74 6F 6E 6E 61 43 p 45 2D 07 -ASCIZ \-E-Cannot read tile\ | 
00 65 6C 69 66 20 64 61 144 
} 
797 2604 
09 11 0797 rt BRB EXIT_NOW 3; Return | 
799 2607 NORMAL_RETURN: ; Block is in the buffer. 
00000080 8F CB 0799 2608 BISL #CMD_M_INDIRECT,=- 3; Set indirect command file 
002C'CF 14 rs COMMAND _FLAGS : bit in command flag longword. 
O7A 611 EXIT_NOW: ; Return via RET 
04 O7A ol¢ RET 
O7A 61 | 
| 


ee AS Eo ee ee 


t 


“0 


SN NSN SSS NNN 
>>r>>rrrrrrrrrrr,r,r>r 
OOVUANANNNNINIWI WIAA NINA ANIA AAAI AIAN 9 


7A 
7A 
7A 
7A 
7A 
7A 
7A 
7A 
07 €1 OQ7A 
2F OU2C'CF 7A 
7A 
30 O7A 
61 63 $9 50 4C 45 48 2D 45 2D O7AC 
64 65 73 75 20 65 62 20 74 6F 078 
61 6D 6D 6F 63 20 61 20 69 sf 7c 
00 65 6C 69 66 20 43 
35 11 07D 
7D 
7D 
7D 
OOSE'CF 7D O7D 
004C*CF 7D 
7D 
7D 
7D 
7D 
7D 


O87E'CF O00 FB 


CGDOCOOOSSOOSOSOSOSOSOOCOSSSGOSOCCOOCOOOOOOOCOCCOOOSOOOOOOOOOoO 


MN BP OO LLL LLL HANANRNANOWOMOWOOSASOLl 


7E 

7E 

7E 

7E 

7E 

07 €1 O7E 
002C*CF 7E 
23 7E 

FOCF gf 18 7€ 
1¢ 50. CE 7E 
7F 

7F 


N 
Brant an Rist HELP file at 4-SEP-1986 93:02:30 Ladovs: SmCIBG0YS8.MAR: 1 
1 
1 
1 
1 
3 
3 
4 
4 
4 


-SBTTL PRINT_HELP = Print an RT-11 HELP file at the console. 


+ 
Functional description: 


Lecete and open an RT=-11 format file on the boot device, and 
print that file at the console. 


Implicit inputs: 


CMD_M_INDIRECT = This bit is set if we are in a command file. 
FILE_BESCRIP = File descripter of file to be printed. 
Outputs: 
None. 
NOTE: 


HELP cannot be used from within an indirect command file. 
This is because the number and size of the variables that 
would have to be saved to allow this is prohibitive. 


PRINT_HELP: ; Print a file 
BBC #CMD_V_INDIRECT,=- ; Are we in a command file? 
COMMAND. FLAGS, 10$ : Branch if not 
MSG <-E-HELP cannot be used w/i a command file> 
BSBW BOOSF ACMSG 
eASCIZ \-E-HELP cannot be used w/i a command file\ 


PDEA AAAAA AA AAA AA AAA A AAA AO 
MOOD NOUES WN OOONAOULSWN-"OVO0Onouw + 


rot BRB EXIT_PRINT_HELP 3 Exit now 

ot? : Set up the help-file file descripter. 

$09 10$: MOVQ  HELP_FILE_DESCRIP,- : 

648 FILE-DESCRIP 3 

650 ; Call OPEN_FILE to locate and open the file. This will also read 
$3) 3; the first LBN of the file intc memory and set CMD_V_INDIRECT. 

e38 : CALLS #0,OPEN_FILE : Open help file 

655 : Now print the file one record at a time. When the EOF is detected, 
$28 ; CMD_V_INDIRECT will be cleared. 

698 NEXT_RECORD: ; Get and print next record. 
65 BBC #CMD_V_INDIRECT,=- ; Branch if EOF 

660 OMMAND FLAGS,- : 

661 EXIT_PRINT_HELP : 

666 JSB Grr K_RECORD 3: Get a record from the file 
96> BLBC RR -EXTT_PRINT_HELP ; Branch if error 

665 : Print the record at the console. A special ASCIZ string is 


Paar ($8) 
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BOOTS8 = Bootstrap command processor 15-SEP-1984 23:38: AX/VMS Macro Vv04-00 
| vO4= PRINT HELP = Print ah RT=it HELP file at 27SEb= 138% $3:08;30 Yeoors sre BOOT5S.MAR; 1 
7F1 666 ; put on the end of the buffer to cause a CRLF at the end of the 
orl 4H 3; record. 
54 gone’ cr 9E O7F1 2669 hovag COMMAND_BUFFER+1,R4 ; Get address of fisrt char 
50 3654 1 C1 O7F6 2670 ADDL ° ; Get address of last char 
60 O7B8°CF DO O7FA 2671 MOVL LINE TERM, (RO) ; Put Line term past last char 
7E 7C O7FF $6 CLRO =(SPY : Create null descripter 
54 DD 0801 sof PUSHL R4 ; Push address of first char 
OOOO'CF 03 FB 0803 2674 CALLS #3,BOOSREADPROMPT ; Print the record. 
02 50 €9 0808 2675 BLBC RO,EXIT_PRINT_HELP ; Branch if error. 
D?.—Ss ‘11 b808 s0/6 BRB NEXT_RECORD : Process next record. 
080D $078 EXIT_PRINT_HELP: 
04 080D 2679 RET ; Return 
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ac -SBTTL BOOT_UP = Boot the system 
: Functional description: 


ce 
uw 


Boot the — using one of severat generalized indirect 
command files. The correct file is determined by the 
device specified in the BOOT command. If no device is 
specified, boot using the default boot file, DEFBOO.CMD. 


If a boot device was specified, it must be of the form 

DDCU:, where DD is the generic device type. C is the controller 
designator, and U is the unit number. e correct boot file 

is DDOCBOO.CMD and the unit number must be deposited in R3 
before executing the boot file. 


Note that the BOOT command cannot be used w/i a command file. 
This is because the overhead in allowing it is prohibitive. | 


Inputs: 
COMMAND_FLAGS 
DEV_DESTRIP 
UNiT_ NUMBER 

DEFBOO_DESCRIP 

Outputs: 


Various flags of intrest — 
Descripter of the DDCU: string 

Unit number of the boot device | 
Descripter of the default boot file 


RO - Return status 


BOOT_UP: ; Boot the system 
BBC #CMD_V_INDIRECT,=- ; Are we in a command file | 
COMMAND_FLAGS, 10$ ; Branch if yes | 
MSG <-E-BOOT cannot be used w/i a command file> 
BSBW BOOSF ACMSG 
eASCIZ \-E-BOOT cannot be used w/i a command file\ 


07 
2F 002C'CF 


POPQPYINININYNININININYIPYININIPIPINININIPIPINPIPYPIPIPIPIPIPIPINIPININY 


SNS NSS SSA AAA AAAA AA AAA AAOAOOO 


3 § “OOOO OOOOOCOCUOOOOOOO0OOOWMC 
FWD (OS OONAUE WN OVOONAU EWN OOONOULS Wn 


BRB 50$ 3 Exit now 
: Decide whether to use the default command file or a special one. 
10s: BBC #CMD_V_NULLDEV,- Was a boot device specified? 
COMMAND FLAGS, 20$ Branch if not 
mova DEFBOO_BESCRIP,- Set up boot file descripter 
EILE_DESCRIP 3 
BRB 30$ 3; Open the file 


3 Set up the boot_file spec for a special boot file. 
; Only the first 3 characters of the device spec are needed. 


20$: moves #3 
ap 


Bi 


OOCCOCOCOOCOSOSOOCOCCOOCOSO OOOO OCSOSOSOSOSOOSOOSOOOOOOOOOOOOOOOOOOOoOO 
C9 G9 Gd Cd Gd CS Cd Od Cd C9 Cd CD CD C9 CD C9 Cd OS GO 69 CD G9 CD Cd C9 GD CD CD OD CD CD CO CD OD C9 CD C9 C0 09 CD CO Gd Co OD CD CD CD OD CD CD 
MAMAN & BBE EEE EWN SS | “OOOO OCOCOCSCOOCOCCOOOCOSOOOCOOOOOOOOOOOOOoOOoOO 


DS NEN IM ININOS OVINE | D MWS LOMMMMMMMMMMMMMMMMMMMMmMmMmMmmmmmmmecrnecrrny 


28 ; Length 
; Source | 

P+ ; Destination 

° ; Set up input for OPEN_FILE 


SQN NNN 


MIAIPOPOPORINPINIPONPONIN 2 


=—OOONAOULS WN" OVOOnouw 


ooo 

ooo 

Coc} 

MOOW 

im hhh) 

tea beal ©] 
Sesesses 


to 
7D MOVQ BO 


SS 


i D 2 
BOOT = Boo tra command processor 15-SEP-1984 23:38: AX/VMS Macro v04-00 Page 69 
virentia BOOT_ Boot the aysten 778Eb= 138 33:39:34 Yeoors spe BOOTSS.MAR;1 . (39) 
OO4C'CF 7 ; FILE_DESCRIP é 
; Locate and open the boot file. 
O87E'CF F $08: CALLS #0,OPEN_FILE ; Open the file 
14 98 £8 $ BLB 49 it bs $ Granch if error 


If the file was opened sugcesstul ly ond! special boot file 


m 

= 
COOOCCOOGOOOOCOOCOOOOoO ‘cS 
CocococococU Co CNCDCDCDCOCUODCDONCD )06CUMW 


SSNS NAA AA AA AAA 
VPOv"DWooownowvoo--—— rn 
SSN NN 


rt 3; was requested, put the unit number i 
OE tg BBSC #CMD_V_NULLDEV 3; Was a aygctes boot file requested? 

0B go2c*cr 4 COMMAND at Ags. 40S : Branch if n 

50 3 «OA 44 MOVZBL rey : Get index “ saved R3 w/i table 

0097'CF D0 45 MOVL UNIT EROH thd ; Put unit number in saved R3 
0040'DF40 46 SREGISTER TABLECROJ ; 

50 O01 3C¢ 47 40$: MOVZWL #SS$_NORMAL,R : Put return status in RO 

04 2748 50$: RET 3; Return 


uP y & 


ee) NNN 


i 
ot the systen "Zo$EP=1986 93:08:30 EBDOY'S: sReSB00158.maR; 1 


; This routine codes around a messy procedure interface 
a is only a ge routine that ranches to EXECUTE 
and allows it urn to OPEN_FILE ia aR 


to re 


f pa -SBTTL OPEN_FILE = Locate and open an Rt-11 file. 
§ s caller v 

60 

61 


SENTRY OPEN_FILE,“M<> 
BRW EXECOTE_FILE 


rae 8, 


am 
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263 -SBTTL Stand alone I/0 support 
i 
787 + SYSSFAO - formats an output string 
HS : Functional description: 
a ; Calls the system service directly instead of through a vector. 
58 ie 
oe 
OFFC 775 ENTRY SYSSFAO,= 
: ak: AMcR2,R$,R4,RS,RO,R7,RB-RI-R10,R11> 
F77A*° 31 0885 2778 BRW EXESFAO+2 ; Branch past entry mask. 


MAR; 1 (39) 


00000001 


00000002 


00000001 
F7CO CF = 16 


08 O809"CF €E9 
SE  O80A'CF Bo 
F 7DF 1 


00 


00000001 


05 


erst ra hy ee processor 
Defin 


(0 C9 C9 OD CO CD CD CD C9 Cd OD OD CD CD CD CO CD GD CD GD CD Cd CD CD 0D 0D C9 CD GD. GD 0D CD OD OD CD CDC 
SLCSSSSVVVVVLVBBDwMcmcsose 50 OD CD CO CO. G2 CO G0 C0 GD Go Ox 
RNWQOCCOSOMMMAMOMOAAONOOMOM WWCdC9csG9 09209 C9 CD CD CDCDONC 


>> 


P~nMOINVOSO 


OOCOOCOCOOGOOOSCOOSOOCSOOCOSOOSOOOOOOOSoOSoO 


Bees 


PIAPPSNMPONININININNNY 


On 


15-SEP-19 


tions and a fault handler 46-SEP-1984 


Be 93:09:30 


AX/VMS Macro vO% -00 
BOOTS.SRCJBOOTSS.MAR; 1 


-SBTTL XDELTA Definitions and a fault handler 


ALL handlers longword-aligned. 


If XDELTA is included... 


Access violation vector. 
BPB vector. 

Reserved gob vector. 
Trace sree ve 

Defines CPU to ys an 11/750 


Pagefault exception vector. 
End of XDELTA conditional. 


Fault handler for unexpected exception conditions during BOOTSS. 


Handler for most of SCB. 


If XDELTA included... 
3 Call XDELTA 
: End sonatetenst 


782 ; 

f $ ; Define handlers needed by XDELTA. 

785 

4 § -ALIGN LONG 

4 8 olf NE, SADEBUG 

7 Y EXESACVIOLAT:: 

8 EXESBREAK:: 

7 § EXESROPRAND: : 

795 EXESTBIT:: 

794 EXESGB_CPUTYPE: : 

795 .LONG PR$_SID_TYP750 

£38 MMGSPAGEF AULT: : 

79 

798 -ENDC 

799 

800 ; 

801 ; 

Hit) ; 

80 

804 BOOT_FAULT: 

805 

508 mi NE , SADEBUG 

80 JSB INISBRK 

Hi ~ENDC 

810 MSG - aa Exception/> 
BSBW BOOSF 
eASCIZ \/-F-Unexpected Exception/\ 


B_ENVIRON_SAFE,10$ 


L_OLD_STACKP,SP 
BRW READ _COMMAND 


_ 
So 
bt 


1 
1 
1 
1 
1 
1 
1 HALT 
1 

1 


; : Lebets required for XDELTA. 


IF NE , SADEBUG 
SYSLSCLRSBIA:: 
INI SRDONLY 
INISURITABLE 


=QODNOUE WN "OOOO wn 


Branch forward if this is 
a fatal exception. 

Restore SP. 

Go try again. 


Fatal exception. 
Halt processor. 


If XDELTA is included... 


change protection 
— nes. 
Just return. 


Dummy flags longword. 


: Dummy SCB address pointer. 


row 


— 


| 
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EXESV_SIMULATOR == 0 3; This is not a simulator. 
1 
5 
1 


re 
a0 
>r 
or 
e7 
+m 


XDEL 
00000000 
PFNSAB_STATE:: 
prNaAs . al YPE:: 
FNSAL_BAK:: 
ENSAL” ~pieie 


rN tt “PLANK: 


=. 
me 
. 
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the TPAS_IDENT item, which is not used by BOOT58. 
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00000000 IF NE , TSDEBUG : If DEBUG is being Linked... 


75 pooens PRMBUF : : 

§ 80 A_PRMBLK:: 

7? 500360, CMDESC:: String descriptor for READ. 
-LONG 0,RMS_BUFFER Input buffer for RMS read. 


RMS_BUFFER: ; Input buffer for RMS. 
BYTE 100 


RMS_BUF_LENGTH = .-RMS_BUFFER ; Length of RMS buffer. 
3 5 .ENDC 
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: If XDELTA is Linked, align end of BCOT58 on a page boundary. 
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“ALIGN LONG 
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- END BOOTS8 ; Transfer address. 
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SET" INTERNAL 
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SET"PHYSICAL 
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SET "WORD 
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- Bootstrap command processor 


PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 ( 8.3 00 ¢ 0.) NOPIC USR CON pee LCL NOSHR NOEXE 
SABSS 00 Bay ( -) O1¢ +1.) NOPIC USR CON ABS LCL NOSHR’ EXE 
BOOTS8_DATA 4 12 ¢ e063. ¢ ( §°) NOPIC USR CON REL LCL NOSHR- EXE 
299860T 0000 ( ) ( 3.) NOPIC USR CON REL LCL NOSHR’ EXE 
_LIBSSTATES 0001 ( 384.) 4 ( 4.) PIC USR CON” REL LCL SHR EXE 
“LIBSKEYOS 0000 .. won Bet Bor PIC USR CON REL LCL SHR EXE 
LIBSKEY1$ 000000 .. wn $ ( g-} PIC USR CON REL LCL SHR- EXE 
$$$ 000008C ( 2248.) ( -) NOPIC USR CON” REL LCL NOSHR' EXE 
fmm aome sacs oreascenosces mae 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 90:00:00.0 00:00:00.34 
Command processing 109 00:00: 3-81 00:00:01.81 
Pass 565 00:00:28. H 83:84:80. 18 
Symbol table sort 8 88: 0:01.5 SRT Se 
Pass 2 41 0: Bon a8 00:00:1 +98 
Symbol table output 0 00:00:00.2 00:00:00.39 
Psect synopsis output 0 00:00:00.04 00:00:00.04 
Cross-reference output ! BS Bp Bo: 88 28 
Assembler run totals 111 00:00:40.4 00:01:22.4 


The working set Limit was 2000 pages. 
164925 bytes (325 pages) of virtual memory were used to buffer the intermediate code. 
There were 60 pages of symbol table space allocated to hold 1015 non-local and 29 local symbols. 
899 source Lines were read in Pass 1, producing 111 object records in Pass 2. 
pages of virtual memory were used to define 28 macros. 


+ 
: Macro Library statistics ; 


Macro Library name Macros defined 
-$255$DUA28: ROOTS 00, 7000'S .A.8; 8 0 
_8255$DUA28: (SYS .OBJJLIB.MLB; 1 
$255$DUA28:CSYSLIBJSTARLET.MLB;2 1 
TOTALS (all Libraries) 1 


1106 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/L1IS=L1S$:B800158/0BJ=0BJ$:B00T58 MSRC$:B00T58/UPDATE=(ENH$:B00T58) +EXECML$/LIB+LIB$:BOOTS.MLB/LIB 
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